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INTRODUCTION 


This manual provides a compiete description of the Burroughs 


FORTRAN compiler language. * 


The FORTRAN language is designed for writing programs for scientific 
and engineering applications. Statements can be written in the 
general format of mathematical notation, thus increasing the ease 


of soiving formula oriented problems. 


The Burroughs FORTRAN compiler operates under the control of the 
Master Control Program (MCP) and similarly, the object code pro- 
duced by the compiler is executed under the control of the MCP. 
For a description of the MCP, reference should be made to the 


System Operation Manual. 


The FORTRAN i cae language is based on USASI FORTRAN (refer to 


lication: ASA X3.9-1966). Refer to appendix F of this 


manual for a listing of the constructs which differ from USAST 
FORTRAN. 


* FORTRAN is an acronym for FORmula TRANslation and was originally 
developed for International Business Machine equipment. 
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SECTION 1 
GENERAL PROPERTIES 


GENERAL. 

Normally, a FORTRAN source program is prepared on punched cards. 
These cards are of three general types: general program cards, 
comment cards, and dollar sign cards. These cards have certain 
column restrictions, and their format is referred to as "restricted 
field format." A free-field format, as used in time-sharing mode, 


is described in appendix J. 


PROGRAM CARDS. 


used to contain FORTRAN statements under the 


are 
owing limitations (see figure 1-1); 


FORTRAN STATEMENTS Mane 


SEQUENCE 


Figure 1-1. Program Card Layout 


a. Columns 1-5. The label of a labeled statement consists of 
from one to five digits and must be placed in columns 
1 through 5. The label may be placed anywhere within these 
columns; neither blanks nor leading zeros are significant 


in differentiating statement labels. All labels within a 


program unit must be distinct. The label field is ignored 
on all non-executable statements and continuation cards 


except for cards containing FORMAT statements. 


Column 6. Column 6 of the initial card of a statement must 


be either blank or zero. Column 6 of a continuation card 


(any additional card after the initial card needed to contain 


the statement) must contain any character other than blank 
or zero. An unlimited number of continuation cards may 
follow an initial card. Continuation cards may not be 


labeled. 


Blank characters are significant only in column 6 of a non- 
comment card; in a Hollerith constant, or in a Hollerith 
field specification. With these exceptions, blanks meee He 
used or omitted without affecting the interpretation of a 


FORTRAN statement. 


Column 7-72. Columns 7 through 72 contain the FORTRAN 


statement. 


Columns 73-80. These columns are not interpreted by the 
compiler and may contain identification or sequencing in- 
formation. This field is, however, analyzed when changes 


are merged with a source tape (see appendix O)s 


Two or more statements may be punched on the same physicai 
card if they are separated by semicolons. If columns 1 

through 5 of the card are interpreted as a label, the label 
corresponds to the first statement on the card. Subsequent 
statements on that card are considered unlabeled. The last 


statement must not end with a semi-colon. 


A program unit must have an END statement as its last card. 
The END statement is used only to tell the compiler that 


it has reached the end of a program unit. 


The END statement is a card with blanks in columns 1 
through 6, the characters E; N; and D once each and in 


that order in columns 7 through 72, preceded by; inter- 


spersed with, or followed by blanks. 


The END statement is not an executable statement. If a 
program attempts to execute an END statement, the program 


is terminated with an INVALID EOJ message. 


COMMENT CARD. 
Comment cards are not interpreted by the compiler, but their infor- 
mation does appear on the compilation listing for documentation 


purposes. Card punching limitations are as follows (see figure 1-2) 


a. Column 1, A comment card must have the comment code, the 


letter C; in column 1, 
used for comments. 


our Columns 73-80. These columns may contain identification 


or sequencing information. 


COMMENTS 


SEQUENCE 


COODDDCDDDDDDDODOOODDOODODDDDD DDD DDD DOOD OHOOND DDD ODD ODDO NNO D OND OO ADDO 0D000D 


789011 12 13 14.15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 22 33 34 35 36 37 38 39 40.41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 G2 63 64 G5 G6 G7 68 G9 7D 71 72 3 74 75 76 77 78 79 80 


2228822222222 2 2222 2222222222222 222222222 222222222222222292222222229292292222 
333333333333333333333333333333333333333333333333333393333333333333333333 393333333 
NAAAAAAGAAAAAAAAAAAAAAAAAAAAAAAA AAA AAAAAA AAA dlegagaaaa 
SSS S SSS SS FSS S SS SS GSS SSSS SSS SS SSSS SSH SSS SSS SSSSSSSSSSSS SSS SS SSSS SSS SSSISS55555S 
| 6 


| 


SRSCESRESERRESESKASSASEEGGSBESSRBSSHBRREGHBHSHBSHSSSSHRBBRSHBBESRARRBASHSRBRSB8B 


BEGG ESGGGGBGGESEGEGEEGGGSEBEGEEEEEGGEEGEGGEEBGEEEBGEBSEGEGEBSEBSSEGEESESESESSEESE 


PUTTVTTTITTITTTIT TTT TTT T TTT TTT TTT TTT TTT TTI TITIAN TTT 


Figure 1-2, Comment Card 


i=3 


DOLLAR SIGN CARD. 

A dollar sign card is used to specify certain compiler options (see 

appendix C). Dollar sign cards must not be interspersed between the 
continuation cards of a multi-card statement. Punching limitations 


of the dollar sign card are as follows (see figure 133 ys 


a. Column 1. Column 1 of a dollar sign card must contain 


a §. 


b. Columns 2-72. Columns 2 through 72 contain the compiler 


options desired. 


Cr. Columns 73-80. These columns may contain identification 


or sequencing information. 


| IDENT 


OR 
SEQUENCE 


COMPILER OPTIONS 


VRE 
tla 34 5 6 7B 9 10 10 42 13 16 15 16 17 18 19 20 20-22 23 24 25 26 27 28 29 30 31 32 33-4 35 36 37 38 39-4041 42 43 44 45 46 47 4B 49 50 St 52 53 54 55 56 57 58 59 GD 61 G2 63 64 65 66 G7 G8 E9 70 71 712173 74 75 76 77 78 79 BO 
UAT AT UTADA TATA DATTA 


222k kt kkk 2 2222222 
3133333333333333333333333332333333333333333333333333333333333393993333333 3333399933 
HASEASAGAAAGAAAAAAAAAAGGAAAAAAAAAAAAAAGAAAASAAAA AAA AAA AAA AAA ea ad 
AGEL EELELELELELELESELELEEELELEEEERELELESEE ES EEE EEEEEEE EEE EEE 
SIGGEEBEBEGEGBGCEGBEGEEGCCBEEBBGGSCEG CEE CEE CEB E GREER GES CEE GGBEG EEE GE EGE EGS EG6GEEE 
TTT TVITITTTTTV TTT TTT TTT TTT TTT TTT da 


AOC LLL LE LL LELLELLLLLLL ELL LLL LULL ELE LL LEE EELS LEE EEE 


Figure 1-3. Dollar Sign Card 
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DECK SET-UP. 


The arrangement of cards for use with the FORTRAN compiler is as 


follows: 


? COMPILE CARD 

? FORTRAN FILE LABEL EQUATION CARDS 

2? FORTRAN CONTROL CARDS 

2? OBJECT FILE LABEL EQUATION CARDS 

? OBJECT CONTROL CARDS 


See System 
Operation Manual 


2? DATA CARD 
DOLLAR SIGN CARD 
PILE CARDS 


SOURCE DECK 
or 
PATCH DECK 


See appendices 


? END 


The question mark (?) represents an invalid character, and must 


appear in column 1. 
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SECTION 2 
CHARACTER SET, CONSTANTS, VARIABLES 


CHARACTER SET. 
The FORTRAN character set consists of digits, letters, and special 


characters. 


DIGITS. 
A digit is any one of the following ten characters: O, 1, 2, 3,5 4, 
5, 6, 7, 83 9. Digits will be in the decimal number system unless 


otherwise specified. 


LETTERS. 
A letter is any one of the following 26 characters: A, B; C; D, BE, 
FF, G; H; T; J; K, L; Ms N; O; P, Q, Ry; S,; T, Uy, V3; W; X3 Y> Ze 


SPECTAL CHARACTERS. 
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FORTRAN special characters and those added to Burroughs FORTRA 


The USASI FORTRAN special characters are the following: 


Character Name 


= Equal Sign 

+ Plus Sign 

- Minus Sign 
Asterisk 

Slash 

Left Parenthesis 
Right Parenthesis 


So SOK 


’ Comma 

. Decimal Point 
Blank 

$ . Dollar Sign 


B 5700 FORTRAN also recognizes the quote character ("). 


The following BCL* characters are recognized as alternatives to 


the standard FORTRAN character set: 


FORTRAN BCL 
Character Alternative 
+ & 
= # or - 


( $ 
) [ 
* x (BCL multiplication sign) 


" @ or : 


The relational operators are represented in FORTRAN as two-letter 
mnemonics which are preceded and followed by a period. These 


operators and their BCL alternatives are: 


FORTRAN BCL 

Mnemonic Meaning Alternative 
-LT. Less Than < 
-LE. Less Than or Equal < 
NE. Not Equal # 
.GT. Greater Than > 
GE. Greater Than or Equal > 
EQ. Equal = 

Two remaining BCL characters serve special purposes. The semicolon 


(;) may be used to separate two or more statements on one physical 
card, and may also be used in a Hollerith field. The right bracket 
(]) is reserved for use by the compiler. Imbedded blanks have no 
meaning in a FORTRAN statement except in a Hollerith field. (see 
paragraph c, page 1+2). 


CONSTANTS. 
Six basic types of constants are allowed in the FORTRAN programming 
language: integer, real, double precision, complex, logical, and 


Hollerith. 


* BCL is an abbreviation for Burroughs Common Language. 
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INTEGER CONSTANT. 


An integer constant is formed by a string of decimal digits. 


The general form is: 


where -549755813887 < N < +549755813887 


An integer constant is written without a decimal point or exponent. 


If the range specified above is exceeded, the constant is inter- 


preted as a double precision constant. 


Examples: 


REAL CONSTANT. 
A real constant is a string of decimal digits with a decimal point 


and, optionally, an exponent. 


The general form is; 


where M and N are strings of decimal digits, only 


one of which may be blank; X is a signed or un- 
signed one or two-digit integer which is the ex- 
ponent. 


A real constant may be signed or unsigned. 


An exponent is optional. If it is used, then a letter E follows 


the mantissa and precedes the exponent. 


The exponent, if present, is interpreted such that 10* is multiplied 


times the mantissa. 


4,31359146672E68 > ABS(R) > 8.7581154021E-47, where R is a real 


constant, is the range within which a real constant may fall. 


Examples: 
56.9 
~075 
-253. 


71.32E+02 (which represents 7132.0) 
-71.32E-2 (which represents -.7132) 


DOUBLE PRECISION CONSTANTS. 
A double precision constant is of the same form as a real constant, 
except that its mantissa may contain up to 23 decimal digits and 


its exponent is preceded by a D instead of an E. 


The general form is: 


where M and N are strings of decimal digits, only 
one of which may be blank; X is a signed or unsigned 


pores or two-digit integer which is the exponent. | 


The mantissa may contain up to 23 decimal digits. If more are used, 


then the mantissa is truncated to the 23 most-significant digits. 


The range of a double precision constant is identical to that ofa 


real constant. 


A constant which does not have an exponent but which specifies more 
digits than a single precision value can maintain is interpreted as 


a double precision constant. 


Examples: 


12D-1 
-5.36D+56 
52D-07 


USE OF SINGLE PRECISION CONSTANTS IN DOUBLE PRECISION STATEMENTS. 
There can be a great difference in the internal machine representa-~ 
tion of single or double precision constants when they are used in 


double precision statements. An example shows this situation best: 


Given: DOUBLE PRECISION D 
1 D = 3.14159265 (Single Precision Constant) 


2 D = 3.14159265D+00 (Double Precision Constant) 
The internal representation of statement 1 takes 13 octal digits: 


= 3-1103755236220000000000000, 


Paterawt 
The internal representation of statement 2 takes 26 octal digits: 


= 3 -1103755236215236041736370., 


Dre ened. 


Thus, due to the very large (perhaps indefinitely large) number of 
octal digits required to represent the constant .14159265, there is 


a difference in the internal representations. 


COMPLEX CONSTANT. 
A complex constant, in the mathematical sense, is composed of a 


real part and an imaginary part. 
The general form is: 


where M is the real part and 
N is the imaginary part. 


Each of the two components may be either a real constant or an 


integer constant. 


Double precision components are not permitted. 


Examples: 


Complex Mathematical 
Constant Interpretation 

NOTE 
(5, 64.2) 5 + 64.2: ee ak 
(0,-1) pei 
(3.5E-2,75.9) 035 + 75.94 


LOGICAL CONSTANT. 


A logical constant may be either true or false. 


The general form is: 


Examples: 


. TRUE. 
-FALSE. 


HOLLERITH CONSTANT. 
A Hollerith constant is a string of any valid FORTRAN characters. 


The general form is: 


wHs 

where w is the width of the 

string and s is the string. 
where s is the string. 


Blanks appearing in the string must be included in the field width 


w when form wHs is used. 


The string may contain any valid FORTRAN characters except the 


quote character {") and its alternatives: @ and :. 


= 


, 
fy etm 


Zyoin 


Strings are stored in memory, six characters per word. 


Although a word is capable of storing eight characters, only the 

ances oem, 
six right-most character positions are used for ecoreee: The two 
ee : 


left-most character positions always contain Zeros. 


If a string does not contain a multiple of six characters, then in 
the last word used for storing the string the remaining characters 


are stored left-justified over a field of blanks. 
Examples: (b represents blank) 


2HbT 
WNC 8 
"DOUT" 
5HABCDE 


VARIABLES. 
There are two forms of variables: simple and subscripted. Each of 
these are, in turn, classified into five basic types: integer, 


real, double precision, complex, and logical. 


SIMPLE VARIABLE. 


A simple variable represents a single value. 


The general form is: 


From one to six alphanumeric characters; 
the first of which must be alphabetic. 


A variable name with a first character of I, J, K, L, M, or N 


implicitly types that variable as an integer variable. A variable 
name beginning with any other alphabetic character is implicitly 
typed as a real variable unless otherwise defined in a Type state- 


ment. 


A variable of type DOUBLE PRECISION, COMPLEX, or LOGICAL must be 


declared as such in a Type statement. 


Examples: 


Integer Real 
Variables Variables 
IB2 A123 
J12 TSUB2 
KALPHA ZSQD 


SUBSCRIPTED VARIABLE. 
A subscripted variable refers to a particular element of an array 
of the same name as the subscripted variable. (See section 6 for 


additional discussion. ) 


The general form is: 


where N is the array name, aj]:A9;.-.:;a, are 
arithmetic expressions which determine the 

values of the subscripts of the subscripted 
variable, and n is the number of subscripts 
declared in the declaration of the array N. 


A subscripted variable is named and typed according to the same 


rules as a simple variable. 


As specified by default or in the Type statement (see page 6-10), 


all elements of an array must be of the same type, i.e., if N(2) is 


integer, then N(3) must also be integer. 
A subscript may be an integer or real arithmetic expression. 


If a subscript is a real arithmetic expression, then it will be 
evaluated and converted to integer by rounding before being used 


as a subscript. 


Subscripted variables must have their subscript bounds specified in 
a DIMENSION, Type, or COMMON statement prior to their first appear- 


ance in either an executable statement or in a DATA statement. 


A subscript value, after any necessary conversion, must be greater 
than zero and may not exceed the bound specified for the array in 


the DIMENSION, Type, or COMMON statement in which it is declared. 


Mul ti-dimensioned arrays are stored with the left-most subscript 
varying most rapidly and the right-most subscript varying least 


rapidly. 


For example, the array A(2, 3, 4) would be stored: 


A(i, 1, 1) 
A(2, 1, 1) 
Ad, Bs T) 
A(2, 2, 1) 
A(1, 3, 1) 
A(2, 3, 1) 
Rs che eB) 
AC 25) Dee 2) 
A(1, 2, 2) 
A(2, 2, 2) 
A(i, 3, 2) 
A(2, 3, 2) 
A(1, 1, 3) 
A(2, 1, 3) 
A(1, 2, 3) 
A(2, 2, 3) 
AQ, 343) 
A(2, 3, 3) 
A(i, 1, 4) 
A(2, 1, 4) 
A{i, 2, 4) 
Ate, 2) 4) 
A(1, 3, 4) 
A(2, 3, 4) 
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Examples: 


B(I) 

GSUB(8*K+3,L) 
DMIN(I,J,K) 
TSUB(I,J,*K/L,C,B*D,F/G) 


SECTION 3 
EXPRESSIONS 


GENERAL. 
An expression is any constant, variable, or function reference, or 
combination of these separated by operators; commas, or parentheses. 


There are two types of expressions: 


ia) 
Ho 
4 
be 
ct 
es 
= 
i= 
@ 
ct 
be 
QO 


ARITHMETIC EXPRESSION, 


An arithmetic expression is a rule for computing a numerical value. 


The general form is: 


Any constant; variable, or function ref- 
erence, or combination of these separated 
by operators; commas, 


or parentheses. 


An arithmetic expression may contain the following arithmetic 


operators: 


Operator Meaning 
+ Addition 


- Subtraction 


* Muitiplication 

fe Division 

KK Exponentiation 

() Grouping Operator Pair 


Arithmetic expressions may be connected by arithmetic operators 
to form longer arithmetic expressions, provided no two operators 
appear in sequence and no arithmetic operator is assumed to be 


present. Examples of invalid arithmetic expressions are: 


A++B 


(A+2) (B+3) 


Any arithmetic expression can be enclosed in parentheses. 


All actual arguments of a function reference are evaluated before 


the function is evaluated. 


Parentheses may be used in an arithmetic expression to denote the 
order in which operations are to be performed. Parentheses have 
first precedence in determining the order of evaluation and, when 
nested parentheses occur; evaluation proceeds from the innermost 


to outermost set. 


The precedence order used in evaluating an arithmetic expression 


is as follows: 


(highest ) Primary 
Exponentiation 
Multiplication and division 


(lowest) Addition and subtraction 


where the precedence for successive operators of the same Level is 


from left to right, e.g., A*¥*B**C is evaluated as (A**B)**C. 


For the operation A**B, the valid combinations and results are 
noted in table 3-1. 


Table 3-1 
Resultant Type for Operation A**B 


Exponent B 


Double 
Integer Real Precision Complex 


Double 
Precision 


Double 
Precision 


Double 
Precision 


Integer Integer Real Not permitted 


Real Real Real 


permitted 


Double 
Precision 


Double 
Precision 


Double 
Precision 


Not permitted 


Complex Complex Complex Complex permitted 


(see NOTE) 


NOTE 


The double precision exponent is con- 
verted to real before exponentiation. 


Any element may be combined with any other element through use of 


all the arithmetic operators except exponentiation. 


The resultant 


type is listed in table 3-2 for A OP B, where A and B are operands 


and OP is either +, -,; *,; or /. 


Examples: 


Integer 
Real 
Double 


Precision 


Complex 


B 
2.316 

K + 1 

(X + A(I,J,L) - SIN(Y(K))) 
Ke Se YULSL * 164397 


Table 3-2 


Combination of Elements 


Integer Real Double Complex 
(see NOTE 1) Precision 


Real Real Double Complex 
Precision 


Double Double Double Complex 
Precision Precision Precision (see NOTE 2) 


Complex Complex Complex Complex 
(see NOTE 2) 


NOTE 1 


Integer division yields a truncated result. 


NOTE 2 


The double precision element is con- 
verted to real before the operation. 


Chee) 


LOGICAL EXPRESSION. 


A logical expression is a rule for computing a logical value. 
The general form is: 


Any constant, variable, or function reference, 
or combination of these separated by operators, 


logical operators, commas; or parentheses, 


Logical quantities may be combined by logical operators to form 
logical expressions in a manner analogous to the combination of 


arithmetic quantities by arithmetic operators. 


A logical quantity, of itself, may also constitute a logical ex- 


pression. 
A logical quantity may be: 


a. Any logical variable. 
b. Either of the Logical constants .TRUE. or .FALSE. 
Any logical function reference. 


d. Any relation. 
The logical operators are defined in table 3-3. 


The precedence of operators in the evaluation of logical expres- 


sions is: 


(highest ) Function reference 
**  (Exponentiation) 


* and / (Multiplication and division) 


+ and ~ (Addition and subtraction) 
bP s5 obs sEOs a. oNBsy «GT. 5 «GE: 
.NOT. 
.AND. 

(lowest ) ~OR. 


Parentheses may be used to alter the order of evaluation (just as 


in arithmetic expressions). 


Table 3-3 


Definitions of Logical Operators 


ee 


The expression .NOT. P is .TRUE. 
when P is .FALSE. The expression 
.NOT. P is .FALSE. when P is 

- TRUE. 


The expression P .AND. Q is 
when both P and @ are ,.TRUE. Tt 
is .FALSE. if either P or Q is 
»~FALSE. or both are .FALSE. 


-OR. The expression P .OR. Q is .TRUE. 
if either P or Q, or both, are 
-TRUE. It is .FALSE. if and only 


| | if both P and Q are .FALSE. | 


Examples: 
Tf A and B are logical expressions, then each of the following 


also a logical expression 


-NOT. B 


RELATION. 


A relation is a conditional logical expression. 


The general form is: 


The relational operators and their meaning are noted in 


A OP B 


where A and B are arithmetic expres- 
sions and OP is a relational operator, 


table 3-4. 


a=) 


Table 3-4 


Relations and Meanings 


Greater Than Ay 


Greater Than or Equal to Ay 


Less Than Ay 


Less Than or Equal to Ay 


Not Equal to A, 


Equal to Ay 


NOTE 


A, and Ao may be of type INTEGER, REAL, or DOUBLE 
PRECISION. Neither may be of type COMPLEX. 


Relations, when evaluated, may have one of two values; true or 


false. 


Chains of relations are not permitted, e.g., 


A .LT. B .LT. C 


A correct form would be: 


A .LT. B .AND. B .LT. C 


A .LT. B .AND. A .LT. C 


whichever is intended. 
Examples: 
(A, B; Q; Z, Ey, F,; X, G; H, and Y are arithmetic expressions, ) 


A .LT. B 
A GUT. “BR sANDS OC oOTy 2 
(E+F).NE.SIN(X).OR. (G-H).LT.ABS(Y) 
A.LT.B.AND. (C.NE.D.OR.A.NE.D) 
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SECTION 4 
ASSIGNMENT STATEMENTS 


GENERAL. 


There are three types of assignment statements: 


a. Arithmetic assignment statement. 
b. Logical assignment statement. 


c. ASSTGN statement. 


ARITHMETIC ASSIGNMENT STATEMENT. 

The arithmetic assignment statement causes the value represented 
by an arithmetic expression appearing to the right of the assign 
ment operator (=) to be assigned to the simple or subscripted 


variable appearing to the left of the assignment operator. 


The general form is: 


where v represents a variable name; 
simple or subscripted;,; and a.e. rep- 
resents an arithmetic expression. 


The variable v cannot be of type LOGICAL. 


The rules provided in table 4-1 apply for type and value assign- 


ment in arithmetic expressions. 


Examples: 
X = Y+Z 
X(10) = A(5)+B(6)-(C/D) 
JX = 342 
X = 5.49 


X(1) = B(1)+coSs(A(1)) 
x(4) =D - Cc¥*¥2 
X(I,J) = A(1I,J)+B(J,T) 


Table 4-1 


Rules for Arithmetic Assignment Statement (v = a) 


Integer 
Integer 
Integer 


Integer 
Real 
Real 
Real 


Real 


Double 
Precision 


Double 
Precision 
Double 
Precision 


Double 


Integer 
Real 


Double 
Precision 


Complex 
Integer 
Real 


Double 
Precision 


Complex 


Integer 
Real 
Double 


Precision 


Complex 


Assign. 


Truncate to an integer and assign. 


Truncate to an integer and assign. 


Not permitted. 
Assign. 
Assign. 


Assign the most-significant part. 


Not permitted. 


Extend to double precision and 


Extend to double precision and 


Not permitted. 


Precision 


Complex Integer 
Real 


Double 
Precision 


permitted. 
Complex permitted. 


Complex 


permitted. 


' Complex Complex Assign. 

LOGICAL ASSIGNMENT STATEMENT. 

The logical assignment statement causes the value represented by the 
logical expression appearing to the right of the assignment operator 
(=) to be assigned to the simple or subscripted variable of type 


LOGICAL appearing to the left of the replacement operator. 


The general form is: 


is a simple or subscripted 
variable of type LOGICAL and l.e. 
represents a logical expression. 


The variable v must be of type LOGICAL. 
Examples: 
(kK, L; M; and N are logical variables. ) 


K = A .OR. B 

L(J,5) = .TRUE. 

M=A .LT. B 

N-={c0-.76Ts: BR. AND, % «ET Pe 


ASSIGN STATEMENT. 


The ASSIGN statement is used to initialize an assigned GO TO 


The general form is: 


ASSIGN n TO t 


where n is a statement label ref- 
erenced in an assigned GO TO state- 
ment; and t is a simple integer or 
real variable appearing in the same 
assigned GO TO statement. 


The statement label n must be referenced in the assigned GO TO 


statement being initialized. 


The variable t must be the same variable referenced in the assigned 


GO TO statement being initialized. 


Example: 


ASSIGN 10 TO J 


SECTION 5 
CONTROL STATEMENTS 


GENERAL. 

Control statements are used to alter the normal flow of a program. 
They may transfer control to another part of the program, terminate 
computation, or control iterative processes, Control may be trans- 
ferred to iabeled executabie statements oniy. There are 12 dif- 


Fan ant ~ 
erent con 


a. Unconditional GO TO statement. 
b. Computed GO TO statement. 

c. Assigned GO TO statement. 

d. Arithmetic IF statement. 

e. Logical IF statement. 

f. DO statement. 

g. CONTINUE statement. 

h. PAUSE statement. 

i. STOP or CALL EXIT statement. 
je RETURN statement. 

k. CALL statement (not including CALL EXIT and CALL ZIP). 
1. CALL ZIP statement. 


UNCONDITIONAL GO TO STATEMENT, 
Execution of this statement causes control to be transferred to a 
statement other than that sequentially following the unconditional 


GO TO statement. 


The general form is: 


GO TO n 


where nis a statement iabel which 


exists within the same program unit. 


A statement label n must be defined within the same program unit 


as the unconditional GO TO statement which references it. 


The statement labeled n may appear before or after the uncondi- 


tional GO TO statement referencing it. 


Example: 


COMPUTED GO TO STATEMENT. 
Execution of this statement causes control to be transferred to one 
of several statements other than that sequentially following the 


computed GO TO statement. 


The general form is: 


GO TO (ny omyre+e en, )> ¢ 


where nj:No;....n; are statement labels 
and t is an arithmetic expression. 


Control will be transferred to the statement label whose position 
in the list is equal to the value of the arithmetic expression 

t;,; i.e.; nj 
The statement labels Ny Moree eons must exist in the same program 


unit as the computed GO TO statement. 


The computed GO TO statement is valid for values of t such that 


1S tS i, otherwise the program will be terminated with an INVALID 
INDEX, 


The arithmetic expression t must be of type INTEGER or of type 
REAL. 


If t is of type REAL, it will be evaluated and then rounded to an 


integer. 


Example: 


K=4 
GO-TO. (50540550 ;20510) .K 


Execution of these two statements will cause control to be trans- 


ferred to statement 20. 


ASSIGNED GO TO STATEMENT. 
Execution of this statement causes control to be transferred to 
one of several alternative statements other than that sequentially 


following the assigned GO TO statement. 


The general form is: 


GO TO t, (n,snysee een, ) 


2 


where t is a simple integer or real 


abie and hy Higse ss oH, are statement 


Control will be transferred to the statement whose label has been 


ASSIGNed to t with an ASSIGN statement. 


The values ASSIGNable to t are the actual statement labels appear- 


ing in the list Ny Morse My 


The variable t must be a simple integer or real variable. 


If t has not been assigned a label appearing in the list, an INVALID 


INDEX termination of the program will result. 


The statement labels nj), 


statement and the ASSIGNed GO TO statement (see 


ree on must appear in the same program 


+ 


unit as the ASSiIGI 
t 


ASSIGN statement, section 4). 


Example: 


ASSIGN 10 TO J 
GO TO J+(50,40,30,20,10) 


eae. 


Execution of these two statements will cause control to be trans- 


ferred to statement 10, 


ARITHMETIC IF STATEMENT. 


Execution of the arithmetic IF statement causes an arithmetic 
expression to be evaluated and a different branch to be made de- 
pending upon whether the expression evaluated is negative, zero; or 


positive. 
The general form is: 


one 


IF(a.e.)n, on 


where ase. is an arithmetic expression 
and Ny Ns: and n, are statement labels. 


3 


Execution of the arithmetic IF statement causes control to be trans- 
ferred to nN ,:,s or ns if a.e. is less than, equal to; or greater 


than zero, respectively. 
The arithmetic expression a.e. may not be complex. 


Examples: 


IF(A-B) 1,2,3 
IF(X(I,J)-C*E) 43,51,96 


LOGICAL IF STATEMENT. 

Execution of the logical IF statement causes a Logical expression 
to be evaluated and the sequence of execution of the program state- 
ments to be altered, depending upon whether the logical expression 


evaluated is true or false. 


The general form is: 


where l.e. is a logical expression and 
s is an executable FORTRAN statement. 


The statement s may be any executable FORTRAN statement except a 


DO statement. 


5-4 


Execution of the logical IF statement results in the logical ex- 
pression l.e. being evaluated. If l.e. is true, statement s is 
executed. If l.e. is false, then statement s is not executed, and 
control is transferred to the next sequential executable statement 


following the logical IF statement. 
Examples: 


X and ¥ 


rn) 


re of type LOGICAL. 


IF(X .AND. Y¥) A = 3.1 


IF(A .LE. B .OR. I .EQ. 0) GO TO 5 


DO STATEMENT. 


The DO statement provides a means of controlling program loops. 


The general form is: 


ee | 
DO m i=n,on are) 


de 
where m is a statement label, i 
is a variable; and nj,no; and 
n3 are arithmetic expressions. 


Execution of a DO statement results in the following actions: 


a. The control variable i is set to the initial value ny: 


b. All executable statements up to and including the terminal 


statement are executed. 


c. The control variable i is incremented by Hiss 

d. The value of the control variable i is compared to the 
terminal value No: If the terminal value has been ex- 
ceeded, control is transferred to the first executable 
statement following the terminal statement. Otherwise, 
steps b through d are repeated until the control variable 


comparison is satisfied. 


In the general form, the control variable i is a simple integer or 


real variable, 


37D 


In the general form: m is the label of an executable statement 


terminating the DO loop. 


In the general form; n,; and n, are integer or real arithmetic 


rn 

1? 2? 3 

expressions which are the initial, terminal, and incremental para- 
meters, respectively, for the control variable i. 


If not specified, n, is assumed to be l. 


3 


Tf present. n, must be greater than zero. 


3 


In the general form, n., must be greater than ny: 


The DO statement is always executed once with its initial value. 


The DO parameter is incremented and compared to n, prior to its 


use and may be modified by any statement within the range of the 


DO loop. 


The control variable i is available for use bv all statements within 
the DO loop, including the terminal statement; and may be modified 
as desired. The control variable i is available for computation 
when exiting from a DO loop by transferring outside the loop and 

not making a normal exit. When a normal exit is made from the DO 


loop, the control variable is\undefined. 
a Pd 


A DO statement may appear within a DO loop. This is defined as 
being a DO nest. However, all statements in the range of the 


latter DO loops must be within the range of the initial DO loop 


po[ po [_ 


(see figure 5-1). 


DO 


“i 


Figure 5-1. DO Nesting 


Nested DO's may specify the same statement as their last statement m. 


Any number of DO statements may be nested within the range of another 


DO statement. 


There are Go) restrictions on transfer out of or into the range of a 
DO loop. If a transfer is made into the range of a DO loop, then 
the programmer is responsible for the appropriate assignment of a 
value to the control variabie i. If no assignment for i is 


indicated, it is assumed to be zero. 


When several DO statements share the same last statement m;, the 
control variable i of the outermost DO statements is not reassigned 
and tested until each of the inner DO statements in its range is 
satisfied, starting with the innermost one. When the outermost. 

DO statement is satisfied; a normal exit is made and control is 
transferred to the next executable statement following the range of 


the just-satisfied DO Loop. 


Examples: 
DO 10 T=2,200,4% 
10 aa 
DO 5 INDEX=5,10 
DO 5 J=1,10 
5 eee 


CONTINUE STATEMENT. 

The CONTINUE statement is considered a dummy statement because it 
causes no action in the execution of a program. It is freyuenily 
used as the terminal statement of a DO loop to provide a transfer 


point for an IF or GO TO statement. 


The general form is: 


eee ee | 
| CONTINUE | 


Ded. 


Example: 


DO 30 J=2,N 
B(J)=NM(J-1) + INC 
IF (N(J).LT. MAX) GO TO 30 
K=J~+1 
GO TO 4O 

30 CONTINUE 


PAUSE STATEMENT. 
The PAUSE statement is used to interrupt execution of a program 


when action is required of the computer operator. 


The general form is: 


PAUSE n 


where n is an integer constant up 
to six digits long or is blank. 


If the n is present, it is displayed to the operator at the time of 
interruption. Execution is resumed with the first executable state- 
ment immediately following the PAUSE statement after an OK message 


has been keyed in at the SPO (refer to System Operation Manual). 


NOTE 


SPO stands for SuPervisOry printer, 
and specifies the console typewriter. 


Examples: 


PAUSE 

PAUSE 30 
STOP OR CALL EXIT STATEMENT. 
The STOP statement causes an immediate termination of the program. 
A STOP statement must appear prior to the END statement in the main 


program. If it is omitted, the program will be DSed with an 
INVALID EOJ. 


5-8 


The general form is: 


where n is an integer constant up 
to six digits long or is blank. 


The CALL EXIT statement is equivalent to STOP. 


CALL EXIT 


The general form is: 


Examples: 


STOP 

STOP 4 

CALL EXIT 
RETURN STATEMENT. 


Execution of the RETURN statement causes control to be transferred 


from a subprogram to the calling program, 


The general form is: 


where n is an arithmetic 
expression or is blank. 


Every subprogram must contain at least one RETURN statement, but 


more than one may appear in a subprogram. 


If nis not blank, control returns to the point of reference and is 
used to select one of the formal parameters in the subroutine re- 
presented by an asterisk (nonstandard return). Control then returns 
to the statement specified by a corresponding actual parameter in 


the calling program (see nonstandard returns, section 8). 


If n is blank, then control returns to the point of reference in 


the calling program unit. 


Deo 


CALL STATEMENT. 


A subroutine is referenced by a CALL statement. 


The general form is: 


CALL N 
CALL N(a,sa50+++ 2a) 


where N is the name of the subroutine and 
Bp rag res 1A, are the actual parameters. 


The actual parameters which constitute the parameter list must 
agree in order, number, and type with the corresponding formal 


parameters in the program unit defining the subroutine subprogram. 


If a formal parameter is real, then an integer actual parameter 


may be used. 


For purposes of type agreement, a Hollerith constant is considered 


of type INTEGER. 


An actual parameter in a subroutine reference may be one of the 


following: 


Ae A Hollerith constant. 


b. A variable name. 

c. A subscripted variable. 
d. An array name. 

e. An expression. 


»- The name of a subprogram,. 


g. $label (see nonstandard returns, section 8) 


Execution of a subroutine reference results in an association of 
actual parameters with all appearances of formal parameters in 
executable statements in the subroutine body, and in an association 
of actual parameters with variable dimensions in the subroutine, 


if any exist. 
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Following the above associations, control is transferred to the 


first executable statement in the subroutine body. 


If an actual parameter is a subscripted variable with an arith- 
metic expression as a subscript, then, effectively, the arithmetic 
expression is evaluated; and the resulting subscripted variable is 
associated with the corresponding formal parameter in the sub- 


routine. 


If a formal parameter of a subroutine is an array name; the corres- 
ponding actual parameter must be an array name or an array element 


name. 


CALL FALL(X,Y,Z) 


CALL KOST(A(I+J,2) +B, "HEAD" ) 


CALL ZIP STATEMENT. 
The CALL ZIP statement is used to pass control and/or parameter 


card information to the MCP, 


The general form is: 


CALL ZIP(A) 


The parameter A should be a real or integer array which is large 


enough to contain any information that will be placed into it 6 


characters per word. 


The information contained in A must be in BCL format as it would 


appear on physical control/program cards. 


The letters CC must be the first two characters contained in the 


array. Only one set of these letters may appear in the array A. 
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The information following the letters CC must appear as a single 
punched card except that the array A may contain up to 162 charac- 


ters (27 words, 6 characters per word). 


The information that would be contained on more than one physical 
control card may be put into the array, but a semicolon must be 


used to delimit the end of a logical card. 


The last logical card must bes: 
END. 


The control information in A should pertain to only one compiler or 


object program. 


After the CALL ZIP statement has been executed, the FORTRAN object 
program that executed the statement continues processing while the 
MCP examines the control information in the array A. If the MCP 
finds an error in this control information, an appropriate error 


message is typed on the SPO. 


Example: 
DIMENSION E£(12) 
READ(5,25,END=30) (E(I);I=1, 12) 
25 FORMAT(12A6) 
30 CALL ZIP(E) 
Input: TO Oe aseteavarehe de (card column) 


CC EXECUTE A/B; COMMON=20;END. 


In the above example, the first program, after executing statement 
30, will continue processing with the next executable statement. 
Meanwhile, the MCP will scan the information in array E and, if 
program A/B is on disk, will initiate the execution of A/B. The 
array is available for other uses immediately upon returning from 
ZIP. Thus, the original program and the program initiated by it 


will be running simultaneously but independently. 


SECTION 6 
DECLARATIVE STATEMENTS 


GENERAL. 
The declarative statements are non-executable statements used to 
supply variable and array information and storage allocation infor- 


mation. The seven different declarative statements are: 


a. DIMENSION statement, 
b. COMMON statement. 

Cs EQUIVALENCE statement. 
d. Type statement. 

e. EXTERNAL statement. 

f. DATA statement. 


&. Function statement (see page 8-1). 


DIMENSION STATEMENT. 
The DIMENSION statement provides a means for specifying a collection 
of values with a single name, and at the same time specifying to the 


compiler the structure which is imposed on the collection. 


The general form is: 


DIMENSION a,(i,)s aj(i,); a,(is) a 


where each a is an array name and each i repre- 
sents dimension information having the form of 
one or more subscript bounds separated by commas. 


Each bound is an integer constant. 


Variable names appearing with subscripts in the source program must 


have dimension information specified for them prior to their use. 


Dimension information may be given in a DIMENSION, COMMON, or Type 
statement; however, the dimension information for a specific array 


name must appear only once in the program unit. 


The magnitude of the values of the subscript bounds indicates the 
maximum values the subscripts may obtain in any reference to the 


array. The lower subscript bound is always one. 


An array may have variables for its subscript bounds ina FUNCTION 
or SUBROUTINE subprogram only. In this case, the array name and 
all variables used as subscript bounds must appear as formal para- 
meters in the subprogram. The actual values assumed by these 
variables are not determined until the subprogram is entered at 


execution time (see variable dimensions below). 
No array may exceed 32767 words. 


VARTABLE DIMENSIONS. 

An array can be placed in a subprogram with variables used as 
dimensions instead of constants. The advantage to this is that a 
given subprogram can perform calculations on such a generally 
stated array with specific dimensions provided from any calling 
program. The specific dimensions must be provided in a DIMENSION 
statement in the calling program. The actual values assumed by 
these variables are not determined until the subprogram is en- 


tered at execution time. 
The general form is: 


DIMENSION aj,(iz)>, ag(iz), a3(i3)>----- 


where each a is an array name and each i is 
one or more subscript bounds separated by 
commas. Each bound is an integer variable. 


Variables can be used as dimensions of an array in a FUNCTION or 


SUBROUTINE subprogram only. 
The variables must appear in a DIMENSION statement of the subroutine. 


The array name and all variables used as dimensions must appear as 
formal parameters in the initial FUNCTION, SUBROUTINE, or ENTRY 


statement. 


Specific dimensions passed to the subprogram from the calling 
program must be identified in a DIMENSION statement of the calling 


program. 


Specific variable size can be passed down through more than one 
level of a subprogram to a given subprogram using the variable 


as a dimension. 


Example: 


DIMENSTON A(10,20) 


END 
SUBROUTINE SUB(B,K,L) 
DIMENSION B(K,L) 


END 


COMMON STATEMENT. 

The COMMON statement provides a means for sharing core storage between 
the main program and its subprograms, or among the subprograms. In- 
formation appearing in the storage area reserved by a COMMON state- 
ment is ordered in the sequence specified by the COMMON statement. 

The ordered information is relative to the beginning of a given 

COMMON block. They are two types of COMMON storage: labeled and 
unlabeled. 


The general form is: 
| COMMON/x, /a,/x,/a,/. sy /x,/2, | 


where each a in the COMMON statement is a list 
containing any combination of variable names, 


array names, or dimensioned array names, and 
each x is a block name or is empty. If x, is 
empty, the first two slashes are optional. 


Array names in a COMMON statement may have their dimensioning infor- 
mation appended to them. When arrays are dimensioned in a COMMON 


statement, they cannot be dimensioned in Type or DIMENSION statements. 


COMMON area storage is assigned in the order of appearance of the 


elements within the COMMON block list. 


Block names may be duplicated within a program unit, causing the 
associated elements from each COMMON block list having the same 

name to be cumulatively assigned to one block with the same name. 

The effect is the same as declaring the block name once and listing 
all elements for that block in the COMMON block list. This is also 
true for multiple unlabeled COMMON block lists within a given program 


unit. 
Variables and array names may not be duplicated in COMMON statements. 


COMMON elements may be assigned initial values through use of the 
BLOCK DATA subprogram,. 


The number and type of variables appearing in the COMMON block list 
and related EQUIVALENCE statements specify the length of the COMMON 
block, 


All subscript bounds for any array which appears in a COMMON state- 


ment must be integer constants. 


A COMMON block need not have the same size in each program unit in 
which it appears. However, if the size of a block is greater than 
1023 words in any program unit, it must also be greater than 1023 


words in the first program unit in which it appears. 
No COMMON block may exceed 32767 words. 


A double precision or complex variable in a COMMON block must be 
positioned such that the first of the two words containing the double 
precision or complex variable is always located at an odd-numbered 
word location in the block. As an example, assume the variables A, 


B, and C to be declared as follows: 
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DOUBLE PRECISION A 
COMPLEX B 
REAL C 


COMMON could then be declared in either of the following ways: 


COMMON A: B; C 
COMMON B; A, C 


In both of these declarations, A and B begin in odd-numbered loca- 


tions. 


COMMON COMMON 
BLOCK BLOCK 

1 AY 1 By 

2 Ay 2 Bo 

3 By 3 a: 
ay A 

4 B. { Ay 
5 | Cc | 5 Cc 


However, it would be incorrect to declare COMMON as: 


COMMON C; A; B 
COMMON C, B; A 
COMMON A, C; B 
COMMON B, C; A 


In the first two examples, both A and B would begin in even locations. 


COMMON COMMON 
BLOCK BLOCK 
if oc] 1 C 
2 A, 2{ 8, | 
3 Ay 3 Pp 
uy By uy Ay 
5 B, > < 
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In the third example, A would be positioned correctly but B would not. 


COMMON 
BLOCK 


el 


Ww FW NN EF 


A 
C 

Bi 
By 


In the final example, B would be positioned correctly but A would not. 


COMMON 

BLOCK 
1 By 
2 By 
3 CG 
y A 
5 A 


Labeled COMMON statements are specified by a COMMON biock name, 
slashes, preceding the list of elements assigned to that labeled 
COMMON block. Termination of the list of elements assigned to a 
block is by: 


ae Termination of the COMMON statement. 
b. Introduction of a new block name. 


Cx Introduction of an unlabeled COMMON block. 


COMMON block names are unique identifiers, however, a block identi- 
fier may be reused within the program unit to represent another type 
element. When a block name is present in a COMMON statement, it is 


embedded in slashes, e.g., /x/. 


Blocks of labeled COMMON statements in different program units which 


have the same block name will occupy the same storage area. 


Unliabeled COMMON statements are specified by a blank block name, 
C.€.; y re Followed by the unlabeled COMMON block list. The two 
Slashes may be omitted if they appear at the beginning of a COMMON 
statement list. Termination of an unlabeled COMMON block is accom- 
plished by the introduction of a block name or termination of the 


COMMON statement. COMMON elements may not be used in DATA statements 
(see page 6-13). 


Examples: 


COMMON X,Y,.Z 
COMMON /Y/Q;R;S 

COMMON / / K(5,5);L 

COMMON A,B,C/S/D(10,10) ,E 
COMMON /Y/Q;R;S/ /K(5;5)5L 


EQUIVALENCE STATEMENT. 


By using the EQUIVALENCE statement, a storage location can be given 
more than one name. Variables or array elements not listed in an 


EQUIVALENCE statement have unique storage assignments. 


The general form is: 


EQUIVALENCE (Q,) 2(Q5) 2(Qg)a.-2 04 (Q ) 


n 


where each Q@ is a list of two or more 
simple or subscripted variables or 
array names separated by commas, 


Subscripts must be positive integer constants and must correspond in 


number to the declared number of dimensions of the array; or be 


single subscripted by equating the element position in the array to 
a single subscript. For an explanation of the latter, see table 6-1. 


An array name without subscripts is considered as that identifier 


with a subscript of one. 


Any number of equivalence lists may appear in an EQUIVALENCE state- 


ment. 
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Elements may be entered into COMMON blocks by setting them equivalent 
to an element appearing in a COMMON statement list. If the element 
is an array element, the whole array is brought into COMMON. This 
may extend the size of the COMMON block involved either at its begin- 


ning or at its end. 


Example: 


COMMON Z 
DIMENSION Z(100) ,E(200) 
EQUIVALENCE (E(200),Z(1)) 


END 
SUBROUTINE SBT 
COMMON X(100) 


The above statements will allocate storage so that X will be equiva- 
lent to the first 100 locations of E, not Z. In other words, the 
EQUIVALENCE statement has displaced the origin of COMMON. 


When two elements share storage because of their appearance in one 
or more EQUIVALENCE statements, only one may appear in a COMMON 


statement. 


All subscript bounds for an array which appears in an EQUIVALENCE 


statement must be integer constants. 


An EQUIVALENCE statement must precede any reference to the elements 
EQUIVALENCEd. 
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Table 6-1 


EQUIVALENCing Multiple Subscripts To One Subscript 


Array 
Element 


ETE MLLS RAED TILES CE ETI 
Same Array Element 
With One Subscript 


Number of 
Dimensions 


Array 
Declarations 


A(T) A(i) A(i) 
A(T, J) A(i, j) A(i+Tx(j-1)) 
A(I,J,K) A(i, j,k) A(i+Tx( j-1)+Ixdx(k-1)) 


| A(44Ix( j-1)+Ixox(k-1)4+IxIx 
Kx(1-1)) 


A(I,J,K,L) A(i, j,k, 1) 


ee 
Example: 

DIMENSION C (120) 

DIMENSION B (4,5,6) Element referenced B (3, 2,1) 

EQUIVALENCE (B C) 


B(3,2,1) = C([{ 3]+[4x(2-1)]+[4x5x(1-1)]) = c(7) 


SS SS Sesser eS 
Sy ee ease sna neararensssnnstrreen 


Maximum Single- 
Subscript Value 


When two elements share storage because of their appearance in one 
or more EQUIVALENCE statements, only one may appear in a COMMON 


statement. 


All subscript bounds for an array which appears in an EQUIVALENCE 


statement must be integer constants. 


An EQUIVALENCE statement must precede any reference to the elements 
EQUIVALENCEd. 


Example: 


DIMENSION A(10), B(5,5) D(3;3:3) 
EQUIVALENCE (A(3), B(5;4), D(1,15,1)), (A(1);E) 


The above statements assign specific variable values to the same 
storage locations, as shown below, where each horizontal line is 


one memory location. 


Variable Value 


ae B(3,4) ae BE 

A(2) B(4,4) ae se 
A(3) B(5,4) D(1,1,1) wee 
re B(1,5) D(25151) acs 
A(5) B(2,5) D(3,1,1) wee 
A(6) B(3,5) D(1,2,1) cre 
A(7) B(4,5) D(2,2,1) ane 
ae B(5,5) ee vee 
nae aoe D(2,3,1) eee 


TYPE STATEMENT. 
Type statements are used to declare the type of variables, array 


names; and function names. The general form is: 


LOGICAL type list 


where a type list is composed of variable 
names, array names, or statement function 
names separated by commas. In addition, 
arrays may be dimensioned by appending 
the dimension information to the array 
name in one or more subscript positions. 
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When a subscripted variable is declared DOUBLE PRECISION or COMPLEX, 
the compiler will automatically assign two words of storage for 


each element of an array. 
Implicit type assignment is overridden by Type statements. 


A variable name must be typed prior to its use in an executable 
statement or DATA statement. If the first letter of a variable 
name ist, J, K,; L; M,; or N, it is implicitly declared of type 

INTEGER and need not appear in a Type statement. If a variable 
name begins with any other letter, it is implicitly declared of 


type REAL and need not appear in a Type statement. 


Examples: 


INTEGER X,Y,Z,A(10,10) 
REAL H,I,J5,K 
LOGICAL ATEST, BTEST 


EXTERNAL STATEMENT. 


When an actual parameter list of a function or subroutine reference 
contains a function or subroutine name, that name must appear in an 


EXTERNAL statement. 


The general form is: 


EXTERNAL Tl] sD ae eevee Ny 


where the n's are the names of the functions 
or subroutines appearing in the parameter 
list of a function or subroutine reference. 


The EXTERNAL statement appears in the calling program unit. 


Example: 


EXTERNAL SIN,COS 
CALL SUBT (SIN,COS) 


END 
SUBROUTINE SUBT (A,B) 
TANX=A (X)/B(X) 


RETURN 
END 


DATA .STATEMENT. 


The DATA statement permits variables and arrays to be initialized 


to predetermined values. 


The general form is: 


DATA list, /d,1d,.d,,...d)/,list,/d,1d,,...d)/s... 


A list element may be an array name or a simple or 
subscripted variable name, where the subscripts must 
be integer constants. If more than one element of 
an array is to be initialized, an implied DO loop 
must be employed (see implied DO loop in section 7). 
The d, represents a constant, or has the form ixc, 
where i is a repeat count and c is a constant. 


The constants may be any of the following: 


a. Integer, real; or double precision constant. 

b. Octal constants of the form Odd...d, i.e., the letter O 
followed by an optional sign, followed by 1 to 16 octal 
digits (not greater than 0+3777777777777777 nor less 
than 0-3777777777777777). If a minus sign is included, 
the mantissa sign bit [1:1] is set to 1 if it was pre- 
viously O, or O if it was l. 

c. Logical constants. The quantities may be expressed as 
-TRUE.,.FALSE. ,T, or F. 

d. Hollerith constants. 


A one-to-one correspondence must exist between the list elements 


and the constants. 


The first time a subprogram is entered, all of the variables contained 


in all DATA statements within that subprogram are initialized. [In 


succeeding entries to the subprogram, the DATA statements are ignored 


and the variables within the DATA statement assume the last value 


assigned to them at the time of the previous exit from the subprogram. 


If a Hollerith constant is used, it must be considered a single value 
and must correspond to a single element; even though it may actually 


occupy several computer words. If it occupies more than one word, 


the list element must be an array name or an implied DO loop with 
enough array elements remaining in the array to contain the Hollerith 


constant (see Hollerith constant in section 2). 


Elements in a COMMON block may appear in a DATA statement only ina 
BLOCK DATA statement (see BLOCK DATA in section 8). 


Variables assigned quantities by a DATA statement may be assigned 


other values during execution. 


When an array name without subscripts appears in the list, the entire 


array is initialized. 


Subscripted variables appearing in a program must have their sub- 
script bounds specified in a DIMENSION, COMMON, or Type statement 
prior to the first appearance of the subscripted variable in a 
DATA statement, 


Example: 


DIMENSION 1T(3),V(3) 

INTEGER X,Y,Z,A(5,5) 

REAL H,1T,J,N(8) kK 

LOGICAL ATEST ,BTEST 

DATA X,Y,H/1,3,5.7/51;J ,ATEST/6.2,99.99 ,F/ 

DATA Z,A;K,BTEST,(N(T) ,T=1,8)/0,25*0,-99. 5. TRUE. ,8*77.77/ 
DATA T(5)/6HONEWRD/ 

DATA V/14HABCDEFGHIJKLMN/ 


GENERAL. 


SECTION 7 
INPUT /OUTPUT 


The following areas of Input/Output (1/0) are covered in this 


section: 


areyrt 


T/O lists. 

Implied DO loop. 

Action labels. 

Auxiliary I/O statements. 
FORMAT statement. 
NAMELIST statement. 

Tape and Disk I/O. 


In explanations presented in this manual section, the symbols 


u, r, ££; k,; and 1 have the following meanings unless otherwise 


specified: 


u 


- file specifier or unit number. The file specifier is an 


arithmetic expression whose value identifies the file 
being used for input or output. The file specifier must 
conform to the restrictions of a subscript. Unless other- 
wise specified by a FILE card (see appendix B), it is as- 
sumed at object time that the file specifier designates a 


tape unit. The range of u must be O <u < 31, 


random record number. It is an arithmetic expression 
whose value represents a particular record within a random 


disk file. 


format specifier. It may be the label of a FORMAT state- 


ment; an array identifier, or a NAMELIST identifier. 


1 - action label. It specifies a statement label to which a 
branch is made if a parity error or an End-of-File con- 
dition is encountered during execution of an input state- 


ment. 


k - input/output list. It may be a blank or.it may contain 
one or more variables and/or implied DO loops, in any 


combination. 


Execution of any of the READ statements causes the next record to 

be read from the specified file. The information is scanned and con- 
verted as specified by the format specifier f if the statement is 

a formatted READ statement. The values are assigned to the ele- 
ments specified by the list k. If the list is not specified, either 
a record is skipped or data is read into the locations in storage 


occupied by the FORMAT statement. 


FORMATTED INPUT STATEMENTS. 
Formatted input statements are always associated with a FORMAT 


statement, an array containing FORMAT specifications, or a NAMELIST. 


The general form is: 


SoG yt pl) ie 


In all five forms, the input list may be empty (Anee3 blank). 


When the first form is used, the input will be assumed to be from 
a card, tape file labeled READER, or a terminal unit (see time- 


sharing appendix J). 


When the second or third form is used, input will be assumed to be 
from a tape file labeled FILEn, where n is the value of u in the 
input statement, unless otherwise specified by a FILE card (see 


appendix B). 
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When the fourth or fifth form is used, then input must be from a 


random disk file. In this instance, a FILE card must be used, 


In using the fourth or fifth form, the random record number r, 
when evaluated, must have a non-negative integer value (see random 


disk 1/0, 7-51). 


Examples: 


READ 75 
READ(8,BID),((1I,J,A(1I,J),J=6,9),I=1,5) 
READ(UNIT ;75)X;Z;A 

READ(14,LISTA) 

READ (6=5*X-3,25,END=101,ERR=77) ARRAY 


For further information, see I/O lists, implied DO loop; action 
labels, FORMAT statement, NAMELIST statement, and tape and disk 
I/O in this section; FILE cards in appendix B. 


UNFORMATTED INPUT STATEMENTS. 
Unformatted input statements do not have a format specifier assoc- 
iated with them. Input must be from a tape or disk file which has 


been created with an unformatted output statement. 


The general form is: 


4, READ(u=r,1) k 
In all four forms, the input list k may be empty (i.e., blank). 
If the list k is not specified, than a record is skipped. 


The file used for input must have been previously created with a 


similar unformatted output statement if a list part is present. 


When either of the first two forms is used, input must be from a 


tape or serial disk file. 


When either of the last two forms is used, input must be from a 


random disk file (see random disk I/0, page 7-51). 


Examples: 


READ(9) I,A,J,B,D 


READ(2*U,ERR=37) SAM 
READ(UNIT=10,END=99) FEAT ,HAMER 


For further information, see I/o lists, implied DO loop, action 


labels, tape and disk I/O in this section; FILE cards in appendix B. 


OUTPUT STATEMENTS. 
In explanations following, the symbols u, r, f; and k have the 


same meanings as outlined under input statements. 


Execution of any of the output statements causes the next record in 
the output file to be created. The information is converted and 
positioned on output as specified by the format snecifier f if the 
statement is a formatted output statement. If the list is not 
specified, either a record is skipped or data contained in the 


locations in storage occupied by the FORMAT statement is outputted. 


FORMATTED OUTPUT STATEMENTS. 
Formatted output statements are always associated with a FORMAT 


statement, an array containing FORMAT specifications, or a NAMELIST. 


The general form is: 


» PRINT f,k 


ai PUNCH f,k 


. WRITE(u,f) k 
WRITE(u=r,f) k 


In all four forms, the output list k may be empty (i.e., blank). 


If the first form is used, output will be to a line printer file 


labeled PRINT or a terminal unit (see time-sharing appendix J). 


If the second form is used, output will be to a card punch file 


labeled PUNCH. 


When the third form is used, output will be to a tape which will be 
labeled FILEn, where n is the value of u in the output statement, 


unless otherwise specified by a FILE card. 


When the fourth form is used, output should be to a random disk 


file. In this instance, a FILE card must be used, 


In using the fourth form, the random record number r; when evalu- 


ated, must have a non-negative integer value (see random disk I/O; 


page 7-51). 


Examples: 


PRINT 95,V(J),K(4),ZEDD 
PUNCH 55 

WRITE(NO,A) ROW 
WRITE(3=200-R,68) MATRIX 


For further information, see I/O Lists, implied DO loop, FORMAT 
statement, tape and disk 1 / 0% and random disk I/O in section 7; 
FILE cards in appendix B. 


UNFORMATTED OUTPUT STATEMENTS. 
Unformatted output statements do not have a format specifier as- 


sociated with them. Output must be to a tape or disk file. 


2. WRITE(u=r) k 


Than cwpanars 1 5 ore aae 
AMT HeUnCLast LOorm Ls 


In both forms, the output list k cantt be empty (i.e., blank). See 
page 7-3. 


When the first form is used, output must be to a tape or serial 
disk file. 
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When the second form is used, then output must be to a random disk 


file (see random disk I/O, page Tea) s 


Examples: 


WRITE(OUT) (X(K) ,K=I,J) ,XX 
WRITE(11=REC) BOOL 


For further information, see 1/0 lists, implied DO loop, tape and 


disk T/O5 and random disk 1/0 in section 7; FILE cards in appendix B. 


I/O LIsTs. 


An input list k in an input statement specifies the variables to 
which values are assigned on input. An output list k specifies the 
variables whose values are transmitted on output. The input and 


output lists are of the same form, 


The general form is: 


Kp oKy1+-- ok, 


where k, ,k yee eek, are variables, array names, 
or implied DO loops, or any combination thereof. 


An element k, of an r/o list may be a simple variable, a subscripted 
variable, an array name without subscripts, or an implied DO loop. 


An I/O list k may consist of any combination of these elements. 


An array name without subscripts in an I/O list is equivalent to 
inputting or outputting the entire array in the same order in which 
the elements are stored in memory, i.e., column-wise: with the 


left-most subscripts varying most rapidly. 


Examples: 


I,J,A,KP,B(I) 
(A( INDEX) ,LP ,INDEX=1 ,20) ,ZIP,ZAP 


In addition, see implied DO loop and FORMAT statement in section 7. 


IMPLIED DO LOOP. 
An implied DO loop is used as an element in an r/o list to specify 


a repeated cycle of list elements. 
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The general form is: 


1. (L,isn, 1, n,) 


Qe ((Lsisn, »n,n,),j=m, +m, .m,) 


where L is a list of I/O elements 
which may contain an implied DO 
loop; and i »ny sNp0n3 and their 
counterparts Jj»Mz.Mp.m3 are as 
defined for the DO statement. 


Example: 
PRINT 35,( (1 »B(I,J) se 1 5) ,J=6 sh} 


The output for the above statement would take the following form: 


1 B(1,6) 
2 B(2,6) 
3 B(3,6) 
1 B(1,7) 
2 B(2,7) 
3 B(3;7) 


where the subscripted B's represent the values of those elements. 


For further information; see DO statement, section 5; T/O list, 


section 7. 


ACTION LABELS. 
The formatted and unformatted input statements can be extended to 
programmatically recover from either End-of-File conditions or non- 


recoverable parity conditions; or both, through use of action 
labels. 


The general form is: 


3. SRR, »END=n,, 


4, SND=n, ERRon, 


where ny and no are 
statement labels. 


When an attempt is made to read a record which has a parity error 
from which the operating system cannot recover; control will be 


transferred to the statement labeled ny: 


When an attempt is made to read an End-of-File, control will be 


transferred to the statement labeled Nos 


The program will be terminated immediately by the operating system 
if either of the above conditions occurs and the associated label 


is not specified in the input statement being executed. 


An End-of-File condition can occur under the following circum- 


stances: 


a. Attempting to read a card with an invalid character in 


column one. 
b. Attempting to read an End-of-File record on tape. 


c. Attempting to read a record from an area of disk which 


has not been written. 


d. Attempting to read a record beyond the furthest record 


written on disk, 


Examples: 


READ(3,END=99) (See page 7-3). 
READ (6=R,35,ERR=70) A 
READ(11,85,END=77 ,ERR=78) J,S,V 


For further information, see input statements and tape and disk 


T/o, section 7. 


AUXILTARY I/O STATEMENTS. 


There are six types of auxiliary 1/O statements: 


a. REWIND statement. 
db. BACKSPACE statement. 


Crs ENDIILE statement. 


d. CLOSE statement. 
e. LOCK statement. 
f. PURGE statement. 


REWIND STATEMENT. 
The REWIND statement causes the pointer for the specified tape or 
disk file to be reset to the beginning of the file or, in the case 


of multi-file tape, to Beginning-of-Tape. 


REWIND u 


Execution of the REWIND statement causes the file u to be positioned 


The general form is: 


to its initiai point. 


Tf the last reference to the file u was a WRITE statement, then an 
End-of-File record is written prior to positioning the file to its 


initial point. 
The REWIND statement is undefined for other than tape or disk files. 


Examples: 


REWIND 5 


REWIND UNIT 


BACKSPACE STATEMENT 

The BACKSPACE statement causes the file pointer to be returned to the 
preceding program record. For example: If the pointer in file u were 
positioned at record n, the execution of this statement would position 


the pointer to record (n-1). 
The general form is: 


BACKSPACE u 


If the last reference prior to a BACKSPACE or REWIND instruction to a 
file is a WRITE statement, the file cannot be read beyond the record 
associated with the last WRITE statement. 


i? 


Examples: 
BACKSPACE 8 
BACKSPACE N 


The execution of this statement has no effect on the program when 


file u is positioned at its initial point. 


ENDFILE STATEMENT. 
The ENDFILE statement causes an End-of-File record to be written on 


the specified file and the file to be closed. 


ENDFILE u 


The ENDFILE statement is undefined for anything other than a tape 
file. 


The general form is: 


When an ENDFILE statement follows a WRITE statement on the same 


file u, then an End-of-File record is written and the tape is 


positioned such that the next record written will (follow)the End - 


of-File recard, 


When an ENDFILE statement follows a READ statement on the same 
file u, then the tape is positioned to the beginning of the (ext) 
file on the tape. 


When an ENDFILE statement follows a BACKSPACE statement on the same 
file u, then the tape is positioned to the beginning of the file u. 


secret 
When an ENDFILE statement follows REWIND or another ENDFILE state- 
ment on the same file u, then the ENDFILE statement is ignored. 


Examples: 


ENDFILE TF1 
ENDFILE 7 


CLOSE STATEMENT. 


The CLOSE statement causes the referenced file to be closed. 
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The general form is: 


CLOSE u 


On a card output file, a card containing an ending label is punched, 


and the card punch is released to the system. 


On a line printer file, the printer is skipped to channel 1, an 
ending label is printed, the printer is again skipped to channel 


1, and the printer is released to the system. 


On a labeled tape output file, a tape mark and ending label are 
written after the last block on tape, and the tape is released to 


the system. 
On an unlabeled tape output file, a tape mark is written after the 


last block on tape, and the tape is released to the system. 


Examples? 
CLOSE 19 


CLOSE N 


LOCK STATEMENT. 


The LOCK statement causes the referenced file to be closed. 


LOCK u 


If the file is tape, then it is rewound and a system message is 


The general form is: 


written to notify the operator to remove the reel and save it. 


If the file is not a disk file, then the unit is made inaccessible 
to the system until the operator resets it manually. 
Examples: 


LOCK NUT 


LOCK 7 
oopy 


PURGE STATEMENT. 
The PURGE statement causes the referenced file to be closed, 


purged, and released to the system. 


PURGE u 


The general form is: 


Examples: 


PURGE TAPE 
PURGE 8 
FORMAT STATEMENT. 
The FORMAT statement specifies what type of conversion is to be 


performed on data from external representation to internal machine 


representation or vice-versa. 


The general form is: 


n FORMAT (f, sf,5+++ +f) 
where n is a statement label and 
Pyofos---ofy are format specifi- 
cations. 


The FORMAT statement is non-executable. 


The FORMAT statement is always associated with one or more formatted 


input and/or output statements. 


The commas separating the format specifications may be replaced 
with one or more slashes. However, slashes in a FORMAT statement 


are used for record control. 


Each FORMAT specification must agree in type with the corresponding 


variable in the list of the associated I/O statement. 
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When inputting data under a numeric format specification (is F, E, 


interpreted as zeros. 


Plus signs are optional on input and may be omitted. 


When inputting data under a real format specification (F, E,; G: D), 
a decimal point appearing in the input field overrides the decimal 


point placement specified. 


Any entire blank fields read in under a numeric format specification 
(is F, E. D:; G) which are outputted with no action being performed 
on them between inputting and outputting will appear in the output 


field as negative zeros. 


In the following FORMAT discussions, the symbols w,ds; b; and s will 


have these meanings: 


w - total input or output field width, a positive unsigned 


integer. 
d.- number of decimal places; a non-negative unsigned integer, 
b - blank. 
Ss - a string of any valid FORTRAN characters. 


INTEGER CONVERSION ON INPUT USING Iw. 
The integer format specification Iw on input causes the value of 
the integer datum in the input field to be assigned to the corres- 


ponding integer variable in the input list. 


The general form is: 


The integer datum must be in the form of an integer constant right- 


justified in the input field. 
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Examples: 


Input Field Specification Internal Value 
567 I3 +567 
bb-329 16 -329 
-~bbbb27 L7 -27 
27bbb T5 +27000 
b-bb234 16 -234 


INTEGER CONVERSION ON OUTPUT USING Iw. 
The integer format specification Iw on output causes the value of 
the corresponding integer variable in the output list to be written 


on the specified output file. 


The general form is: 


The integer is placed right-justified in the output field over a 
field of blanks. 


The plus sign is omitted for positive numbers. 


Tf the size of the integer exceeds the specified field width w, 
the output field will be filled with asterisks. 


Examples: 
Internal Value Specification Output Field 

+23 T4 bb23 

-79 T4 b-79 
+67486 T5 67486 
-67486 T5 KHXK* 
+978 Il x 

oO T3 bboO 


REAL CONVERSION ON INPUT USING Fw.d. 
The real format specification Fw.d on input causes the vaiue of 
the real datum in the input field to be assigned to the corres- 


ponding real variable in the input list. 


The general form is: 


Fw.d 


If there is no decimal point in the input field, then a decimal 
point is inserted d places from the right side. Embedded or 


trailing blank columns are interpreted as zero. 
The field width w must be greater than or equai to the specified 
number of decimal places d. An input datum optionally may have 


an exponent (see real conversion on input using Ew.d). 


Examples: 

Input Field Specification Internal Value 
36725931 F8.4 +3672.5931 
3.672593 F8.4 +3.672593 
- 367259 F8.4 -367259 
-3672.E2 F8.4 - 367200 
367259E2 F8.4 #5672259 
3.672E-1 F8.4 +3672 
367259 F6.6 +0.367259 
b-b3456 P7 <2 -~34.56 
b2032b F6.0 +20320 


REAL CONVERSION ON OUTPUT USING Fw.d. 
The real format specification Fw.d on output causes the value of 
the corresponding real variable in the output list to be written 


on the specified output file. 
The general form is: 


Fw.d 


The real number is placed, right-justified and rounded to d decimal 


places, in the output field over a field of blanks. 


cy 


The plus sign is omitted for positive numbers. 
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If the size of the number exceeds the specified field width w, then the 


output field will be filled with asterisks. A safe rule to use is: 
(w - d) > 3 
Examples: 
Internal Value Specification Qutput Field 

+36.7929 F7.3 b36.793 
+36.7934 F9.3 bbb 36.793 
-0.0316 F6.3 -0.032 
0.0 F6.4 0.0000 
0.0 F6.2 bbO.00 
4579.645 F4.2 KKK 
+579.645 F6.2 579.65 
-579.645 F6.2 HKHKKK 


REAL CONVERSION ON INPUT USING Ew.d. 
The real format specification Ew.d on input causes the value of the 
real datum in the input field to be assigned to the corresponding real 


variable in the input list. 


The general form is: 


Ew.d 


If there is no decimal point in the input field, then a decimal point 
is inserted d places from either the right side of the input field or 


from the E denoting the exponent, if there is one. 


The field width w must be greater than or equal to the specified num- 


ber of decimal places d. 
An input datum may or may not have an exponent. 


Embedded or trailing blank columns are interpreted as zero, and can 
cause problems. When blank columns are located on the right end of a 
field they are interpreted as zero and large errors can occur. For 
example: If the value 4. 527x104 were punched as 4.527E4b, it would 
be stored internally as 4.52710 °°, 


It is advisable to always punch E-field exponents as far to the right 


as possible. 
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Examples: 


Input Field 
bbbbbb2 5046 
bbbbb25.046 
-bb25046E-3 
bb250.46E-3 
b-b25.04678 
bbb4.527E1b 
REAL CONVERSION ON 0 


Specification 


E1l1.4 
E11.4 
E1l1.4 
E11.4 


Internal Value 


+2. 5046 
425.046 
-0.0025046 
+0.25046 
-25.04678 
+45270000000. 


The real format specification Ew.d on output causes the value of 


the corresponding real variable in the output list to be written 


on the specified output file. 


The general form is: 


The real number is placed right-justified and 
mantissa, together with a four-place exponent 


field over a field of blanks. 


Ew.d 


field, in the out 


Note that with the Ew.d format 


specification, d takes on a slightly different interpretation 


since no significant digits are written to the left of the decimal 


point in the output field. 


The plus sign is omitted for positive 


numbers. If the following rule is violated, the output field will 


be filled with asterisks: 


(w - 4) > 6 


If a scale factor n is used, then it will control the decimal 


normalization between the number part and the exponent part as 


follows: 


a. If n< 0, then || zeros will be placed immediately to 


the right of the decimal point with (d-|n| ) significant 


digits following the zeros. 


b. If n> 0, then n significant digits will be placed to the 


left of the decimal point and (d-n+1) significant digits 


wili be piaced to the right of the decimal point. 


gen, 


Examples: 


Internal Value Specification Output Field 
+36.7929 E12.5 bb. 36793Eb02 
-~36.7929 E11.5 -.36793Eb02 
-36.7924 E10.5 HEX KKK KKEH 
+36.7929 -2PE12.5 bb. 00368Eb04 
+36.7929 +2PE12.5 36.79290Eb00 


DOUBLE PRECISION CONVERSION ON INPUT USING Dw.d. 

The double precision format specification Dw.d on input causes 
the value of the real datum in the output field to be assigned 
to the corresponding variable of type DOUBLE PRECISION in the 
input list. 


The general form is: 


Dw.d 


Aside from the fact that a double precision value is stored in two 
words; and that the exponent in the input field is preceded by a D 
rather than an E, the double precision format specification Dw.d 


behaves in the same manner as Ew.d. 


DOUBLE PRECISION CONVERSION ON OUTPUT USING Dw.d. 
The double precision format specification Dw.d on output causes the 
value of the corresponding double precision variable in the output 


list to be written on the specified output file. 


The general form is: 


Dw.d 


The double precision format specification Dw.d is identical to Ew.d, 


with the following exceptions: 


ae The value associated with it is stored in two machine 


words, 


b. The variable name associated with the value must be of 
type DOUBLE PRECISION. 


c. The exponent part of the output contains a D rather than 


an E. 


REAL CONVERSION ON INPUT USING Gw.d. 


The real format specification Gw.d on input is identical to Fw.d. 
The general form is: 


Gw.d 


REAL CONVERSION ON OUTPUT USING Gw.d. 
The real format specification Gw.d on output causes the value of 
the corresponding real variable in the output list to be written 


on the specified output file. 


The general form is: 


The representation in the output field is a fraction of the magni- 


tude of the real number being outputted. 


If N is the magnitude of the number being outputted, then table 
7-1 shows how the number will appear in the output field. 


If a scale factor is used, then it will have no effect on output 
conversion unless the magnitude of the number being written is 


outside the range which permits effective use of F conversion. 


Examples: 

Internal Value Specification Output Field 
+10. G12.5 bb10,.000 
+1000, G12.5 bb1000.0 
+100000, G12.5 bb. LOOOOEbO6 
+1000000, G12.5 bb. LOOOOEbO7 
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Table 7-1 


Datum Conversion 


Magnitude of Datum Equivalent Conversion Effected 


ee 
O.1<N<1 F(w-4). d, 4x 
1<N<10 F(w-4). (d-1), 4x 


. 


10 
10 


d- 
d- 


2<1 90-1 
1404 


Otherwise 


OCTAL CONVERSION ON INPUT USING Ow. 
The octal format specification Ow on input causes the value of the 
octal datum in the input field to be assigned to the corresponding 


variable in the input list. 


The general form is: 


If the datum is less than 16 octal digits long, then it is right- 
justified and stored in a machine word. The maximum octal constant 


{ 
which can be read is 3777777777777777- 


Octal constants can be signed or unsigned. The plus sign (+) and 

the ampersand (&) sign are skipped over and the minus (-) sign causes 
bit 1 of the input element to be complemented with 1. Leading, im- 
bedded, and trailing blanks are treated as zeros. An execution time 
type error is emitted if the sign occurs more than once or occurs 
imbedded within the octal constants, or if the magnitude of the octal 


constant exceeds B3770777777777777 » 


Examples: 


Input Field Specification Internal Value 

16 G2 OOO0O000000000016 
L777777777777777 G16 L77777777777777 
-16 Z3 2000C0000000016 


v220 


OCTAL CONVERSION ON OUTPUT USING Ow. 
The octal format specification Ow on output causes the octal value 
of the corresponding variable in the output list to be written 


on the specified output file. 

The general form is: 
| Ow | 
Aree 


The octal value is placed right-justified in the output field over 
a field of blanks. 


Examples: 


Internal Value epecification Output Field 
0000376754320017 D3 017 
0000376754320017 g10 6754320017 Trine lea 
0000376754320017 G16 0000376754320017 


LOGICAL CONVERSION ON INPUT USING Lw. 
The logical format specification Lw on input causes the value of 
the logical datum in the input field to be assigned to the corres- 


ponding variable of type LOGICAL in the input list. 


The general form is: 


The input field width w must be greater than or equal to one. There 
may be leading blanks. Normally, the first character encountered in 


th 


Az, mm 
vile 


ielid exclusive of leading blanks is either T or F, for true or 
false, respectively. Any characters following the T or F will be 
ignored. If the first non-blank character is a T; then the variable 


will be assigned a value of true, otherwise it is false. 


seal 


i 


Examples: 


Input Field Specification Internal Value 
T L1 TRUE 
bbF L3 FALSE 
bbbTRU L6 TRUE 


LOGICAL CONVERSION ON OUTPUT USING Lw. 
The logical format specification Lw on output causes the logical 
value of the corresponding variable of type LOGICAL in the output 


list to be written on the specified output file. 


The general form is: 


The logical value is placed right-justified in the output field 


over a field of blanks as a T or F, for true or false, respectively. 


Examples: 
Internal Value Specification Output Field 
FALSE Li F 
FALSE L3 bbF 
TRUE L2 bT 


ALPHANUMERIC CONVERSION ON INPUT USING Aw. 
The alphanumeric format specification Aw on input causes the charac- 
ter string of width w in the input field to be assigned to the 


corresponding variable in the input list. 
The general form is: 


The variable may be real or integer. The field width w should 


never exceed six. If it does, then the right-most six characters 


in the string are stored and the rest are ignored. If w is less 
than six, then the string is stored left-justified with (6-w) 


trailing blanks. 


Examples: 
Input Field Specification Internal Value 
ABCDEFGHIJK A3 ABCbbb 
ABCDEFGHTJK A6 ABCDEF 
ABCDEFGHIJK All FGHIJK 


ALPHANUMERIC CONVERSION ON OUTPUT USING Aw. 
The alphanumeric format specification Aw on output causes the char-= 
acter string assigned to the corresponding variable in the output 


list to be written on the specified output file. 


The general form is: 


The string is placed fright} justified in the output field over a 
field of blanks. 


Examples: 
Internal Value Specification Output Field 
ABCbbb A3 ABC 
ABCbbb A5 ABCbb 
ABCbbb AQ bbbABCbbb 


INPUTTING A CHARACTER STRING USING wHs. 
The Hollerith field specification wHs on input causes the character 
string of width w in the input field to replace the character string 


s of the Hollerith field specification in a FORMAT statement, 


The general form is: 


wHs 
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The Hollerith field specification on input may be used to read in 
page headings which are to be printed on output, but which may 


vary in content from one run to another. 


Example: 
READ 15 
15 FORMAT (2X ;9HDUMMYbbbb ) 
PRINT 15 
oe 
Input: 123456789 01 (card column ) 


Xx YbAbBSAMPLE 


Output: bbAbSAMPLE 


Note that in the printed output, although 2X has been specified, 
only one blank is printed since the first blank is a carriage 


control character (see carriage control, page 7-28). 


OUTPUTTING A CHARACTER STRING USING wis. 
The Hollerith field specification wHs on output causes the charac- 
ter string s of width w of the Hollerith field in a FORMAT state- 


ment to be written on the specified output file. 


The general form is: 


wHs 
The string s remains unchanged. 
Example: 
PUNCH 
95 FORMAT (12HbBURROUGHSbb ) 
a nee es 
output: 123456789012 (card column) 


bBURROUGHS DD 


INPUTTING A CHARACTER STRING USING "s", 
The literal string specification "s" on input is identical in 


operation to the Hollerith field specification wHs. 


The general form is: 


ttot! 


Example: 
READ 15 
15 FORMAT (2X, "DUMMYbbbb* ) 
PRINT 15 
11 
Input: 12345678901 (card column) 


XYbAbBSAMPLE 
Output: bbAbBSAMPLE 


OUTPUTTING A CHARACTER STRING USING "s", 
The literal string specification "s" on output is identical (except 


Low. "4 25@) an operation to the Hollerith field specification wHs. 


The general form is: 


No tt 


The format editing specification nX on input or on output will 


SKIPPING CHARACTERS USING nX. 


cause n characters to be skipped in the respective input or output 


field. 


The general form is: 


. 


The format editing specification Tn is used to 


EDITING USING Tn. 
ransfer data to or 


fe) t 
from a specified position n within a record. The use of Tn in a 


format list will cause the next item of data transferred in the 
corresponding I/O list to be transferred to or from the position 


indicated by the letter n. 


Example: 


WRITE (6,1) A,B,C 
1 FORMAT (F4.1, T10, F7.2, T25, E12.4) 


In the above example, the data referenced by the variable B will be 
positioned in the tenth position of the record when it is written, 
and the data referenced by the variable C will be positioned in the 


25th position of the record. 


The general form is: 


SCALE FACTOR nP. 
A scale factor is defined for use with the F, E, G, and D format 


specifications, and is of the form: 


where the scale factor n is 
a signed integer constant. 


When FORMAT control is initiated, a scale factor of zero is auto- 
matically established and applies until a scale factor is encountered 
in the FORMAT statement. Once a scale factor is encountered, it 
applies to all subsequently encountered F, E, G,; and D conversions 
until another different scale factor or the end of the FORMAT state- 


ment is encountered. 


SCALE FACTOR ON INPUT. 
For F: E; G; and D format specifications on input, where the input 
datum does not have an exponent, the input datum is multiplied by 


Loo ty where n is the scale factor. For example, the datum 573.19 
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read with a format of 2PF6.2 would be stored internally as 5.7319. 
If the input datum contains an exponent, the scale factor has no 


effect. 


SCALE FACTOR ON OUTPUT. 

For F, E, and D format specification on output, when the output 
datum does not have an exponent, the output datum is multiplied by 
LO" 
internally as 5.7319 and written with a format of 2PF6.2 would have 


where n is the scale factor. For example, the number stored 


the external value of 573.19. If the output datum contains an ex- 
ponent, the datum is multiplied by 10" and the exponent is reduced 
by n. Therefore, the value is not changed. For example, the number 
stored internally as 5.7319E+02 and written with a format of LPE11.3 
would have the external value of 57.319E+01. 


For the G format specification on output, the effect of the scale 


putted is outside the range that permits effective use of F con- 
version. If the use of E conversion is required, then the scale 
factor has the same effect as when using the E format specification 


on output. 


For further information, see real conversion on page 7-16 using 


Ew.d. 


FORMAT SPECIFICATION IN AN ARRAY. 

Any of the formatted input/output statements may contain an array 
name in place of a FORMAT statement label. At the time the input/ 
output statement containing the array reference is executed, the 
array must contain the equivalent of a FORMAT statement, with the 
first non-blank character being a left parenthesis. Any charac- 
ters in the array following the final right parenthesis of the 


FORMAT statement in the array are ignored. 


Example: 


DIMENSION FORM (5), INFO(6) 
READ(5,75) FORM 
75 FORMAT(5A6) 


fee 


READ(20,FORM) Q,R, (INFO(I),1=1,6) 


Input: (F6.2,3X,E15.8,613)bbbbbbbbbbb 


CARRIAGE CONTROL. 
When a line printer is used for output, the first character of 
each line of print controls the spacing of the printer carriage. 


The control characters are: 


Character Action 
Blank One space before printing. 
Zero Double space before printing. 
1-9 Skip to channel 1-9 of the 


carriage control tape before 
printing. 


Plus sign No advance before printing. 


Examples: 


25 FORMAT(1HO,E12.6,A5) 


Causes the carriage to double space before printing. 


35 FORMAT(6H+TITLE) 


Provides no carriage advance before printing. 


45 FPORMAT( 3X, 615) 


Causes the carriage to single space before printing. 


55 FORMAT(1H1, "TITLE" ) 
Causes the printer to page eject and print TITLE. 


USE OF SLASH (/). 

A slash in a FORMAT statement is used to indicate the end of a 
record. On input, any remaining characters in the current record 
are ignored when a slash is encountered in the FORMAT statement. 
On output, the current record is terminated and any subsequent 


output is placed in the next record. Multiple slashes may be used 


gu 8 


to skip several records on input or create several blank records 


on output. 


REPEAT SPECIFICATIONS. 

Repetition of any format specification except nX, wHs, Ws" 5 on 
Tn is accomplished by preceding it with a positive integer con- 
stant called the repeat count. If the I/O list warrants it, the 
specified conversion will be interpreted repetitively up to the 
specified number of times. If a scale factor is included, then 


it must precede the repeat count. 


Repetition of a group of format specifications is accomplished by 
rentheses and preceding the left parenthe- 
sis with a positive integer constant called the group repeat count, 
which indicates the number of times to interpret the enclosed 
groupings. If a group repeat count is not given, then the group 
is repeated until the 1/O list is exhausted. Grouping with paren- 


theses may be continued to any desired level. 


Example: 


85 FORMAT(3E16.6,5(F10.5,13,4A2)) 


FORMAT AND I/O LIST INTERACTION. 

The execution of a formatted I/O statement initiates format control. 
If there is an 1/0 list, then at least one format specification 
other than wHs, "s", nX, or Tn must exist in the FORMAT statement 


referenced. 


When a formatted input statement is executed, one record is ini- 
tially read. No other records are read unless otherwise specified 
by the FORMAT statement. The I/O list associated with a FORMAT 


statement may not require more data of a record that it contains. 


When a formatted output statement is executed, writing of a new 
record occurs each time the FORMAT statement referenced so speci- 
fies. Terminating execution of a formatted output statement causes 
the current record to be written. A slash also causes the record 


to be written. 
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Except for the effects of repeat counts, the FORMAT statement is 
interpreted from left to right. 


To each I, F, E, G, D, 0, A, or L format specification there corres- 
ponds one element in the I/O list. A list element of type COMPLEX 
is considered, for purposes of I/O conversion, as two list elements 
of type REAL. Thus, there must be two format specifications (or a 
format specification preceded by a repeat count) for every list 


element of type COMPLEX. 


There is no corresponding 1/0 list element for any wHs, "s", Tn, 
or nX format specification. The information indicated by the wHs 
and "s" is inputted or outputted directly to or from the FORMAT 


statement. 


If, under format control, the right-most right parenthesis of the 
FORMAT statement is encountered and the I/O list is still not ex- 
hausted, then format control reverts to the last previously encoun- 
tered left parenthesis. If a group repeat count precedes this left 


parenthesis, then it also takes effect. 


If, during execution of a formatted I/0 statement, the I/O list is 
exhausted but the right-most right parenthesis of the specified 
FORMAT statement has not been encountered, then execution of the 
1/0 statement is complete. This action, of itself, has no effect 


on the scale factor. 


NAMELIST STATEMENT. 

The NAMELIST statement associates an I/O list with a unique iden- 
tifier. This identifier may not be used for any other purpose in 
the program unit in which it occurs. Only variable and array iden- 
tifiers may be used as NAMELIST elements. These identifiers may 


not be formal parameters. 


The general form is: 
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NAMELIST/N1/a,,a,,+++,a,//N2/b,,b b 


A eee? ne 
where Nl and N2 are NAMELIST iden- 
tifiers and a,,...,a and b,,...,b 

. 1 n 1’ n 
are variable or array names. 


n 


INPUT USING NAMELIST. 

Input using NAMELIST is accomplished by executing a formatted READ 
statement which has as its format specifier f a NAMELIST identi- 
fier which has previously been declared in the same program unit. 


No input list k is allowed in the READ statement. 


The input data file is free format except for the first two charac- 
ters of the first record. The first character is ignored and the 
second must be a dollar sign ($). The NAMELIST identifier desig- 
nated in the associated READ statement must follow the dollar sign, 


with one or more blanks following the NAMELIST identifier. 


Following the NAMELIST identifier and blank(s) are placed, in free 
format, the variables assigned to the NAMELIST and the values which 
are being assigned to them. These may take any one of three forms, 


or any combination thereof: 


ae V=N, where V is a simple or subscripted variable 
assigned to the NAMELIST identifier, and N is the 


value being assigned to the variable V. 


b. B(i) = Ms, M; ys+++sm; where B is a previously DIMEN- 
STONed array of size n, iis an integer constant desig- 
nating an element of the array B (a is less than or equal 
to n), and m,,.++.,;m, are the values being assigned to the 
array elements B(i) through B(n) and are either constants 
or are of the form i*c, where i is a repeat count and c 
is a constant. Values must be assigned to all elements 


of the array from B(i) through B(n). 


Ce: vA M,>M5y++e5M 5 where A is a previously DIMENSIONed 


array and M,,M5,-+++,mM, are the values being assigned to 
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the entire array A; and are either constants or are of 
the form i*c, where i is a repeat count and c is a con- 


stant. 


If the first record is other than that specified above, then addi- 
tional records are read until the required record is found or the 


End-of-File is encountered. 


The READ statement will be terminated when a second dollar sign is 
encountered in the data file. Anything following the dollar sign 
within the record is ignored. Trailing blanks are interpreted as 
zeros. An assignment of the form V=E cannot be divided between two 


data cards. That is, V on one card, and E on another. 


Example: 
DIMENSION A(4,4),M(10),N(20) 
NAMELIST/NAMEA/A,D,K,M,N,X/NAMEB/M,N,X 
READ NAMEA 
First input card: 12345678..... (card column) 
b$NAMEA D=7.1,N(4)=2.9,5.7,1.5,X=2.5, 
Second input card: 12345678..... (card column) 


A(2,3)=15.9,M=2,1,3*6,4* 74g 


OUTPUT USING NAMELIST. 

Output using NAMELIST is accomplished by executing a formatted 
output statement which has as its format specifier f a NAMELIST 
identifier which has previously been declared in the same program 


unit. No output list k is allowed in the output statement. 


Output records produced by using NAMELIST may be read by a READ 
with NAMELIST statement, and are therefore of the same general for- 
mat as that specified for input to a READ with NAMELIST statement. 


Example: 


DIMENSION A(4,4),M(10),N(20) 
NAMELIST/NAMEA/A,D,K,M,N,X/NAMEB/M,N,X 


WRITE(6,NAMEA) 
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WRITE(6,NAMEB) 


TAPE AND DISK I/0. 


Tape and disk file unformatted output statements, BLOCKING and 
BUFFERing options, serial and random disk r/o information are 


available in this section of the document. 


UNFORMATTED OUTPUT. 


When a tape file is written using unformatted output statements, it 


is formatted in the manner illustrated by figure 7-1. 


LOGICAL RECORD 


First Intermediate 
J+ Physical Record Physical Records Last Physical Record 
(R words long) (each R words long) 


A=77777 Denotes first yaa Denotes intermediate re Denotes last 
B=0 Physical Record B=0O Physical Records B=77777. Physical Record 
C=R-1 C=R-1 O<C<R-1 


(number of words used in 
final record) 


Figure 7-1. File Format Using Unformatted Output Statements 


NOTE 


Numbers with subscript 8 are octal. 
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In figure 7-1, R represents the number of words per record declared 
by the RECORD option of the FILE card. The logical record size is 

determined by the number of items in the 1/0 list. A, B, and C are 
partial words that comprise the control, or first word of each phys- 


ical record. 


A= [3:15] 
= [18:15] 
C = [33:15] 


RECORD CONTROL WORDS. Each physical record in a tape file contains 
a control word. The control word is always the first word of each 


record, and is classified into four types. 


a. Type 1 - 077777177777] XXxxx, 


This type of control word indicates that the entire logical 
record follows the control word in the next XXXXX Q words of 
the physical record. 


b. Type 2 - 077777) 00000j XXXxX. 


This control word indicates that the first XXXXX Q words of 
the logical record are contained in the physical record 
associated with the control word. The remainder of the 
logical record is contained in the physical record or 
records that foliow. 


c. Type 3 - 000000] 00000] Xxxxx, 


This control word indicates that the physical record associ- 
ated with it is an intermediate record and contains XXXXX 
words of the logical record. This means that the first part 
of the logical record is contained in a preceding physical 
record or records, and that the remainder is contained in 


the physical record or records that follow. 
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d. Type & - 000000] 77777| XXXXXg 


This control word indicates that the associated physical 


Examples of Unformatted Tape Output. 


The following examples illustrate unformatted tape output. PR indi- 
cates the number of words in a given physical record, and LR the 


number of words in a given logical record. 


Example 1 PR = 10, LR = 5, BLOCKING = 2, 


The tape output for a program writing a five word logical record ee 


Dy S545 5) four times is illustrated in the following manner. 


BLOCK 1 (20 WORDS) BLOCK 2 (20 WORDS) 
0777777777700005, 


0777777777700005. 


The block size of a tape file is determined by multiplying the BLOCK- 
ING factor by the physical record length. The block size in example 
1 is 2 x 10 = 20 words. 


cee 


The BLOCKING factor is the number of physical records in a block. 
When the size of the logical record is less than the physical record 
as shown in example 1, then the first LR words after the control word 
of the physical record comprises the logical record. The remaining 


words in the physical record are invalid. 


Example 2 PR = 10, LR = 5, 8, 10, BLOCKING = 2. 


The tape output of a program that writes three variable logical rec- 
ords (1,2,3,4,5), (1,2,...,8), and (1,2,...,10) is illustrated in the 


following manner. 


BLOCK 1 (20 WORDS) BLOCK 2 (20 WORDS) 
077777777770000S, 077777000000001 1, 
1 


2 
LR 
1 3 
| : PR | 5 | 
i || 6 
7 
eR ee 
8 
9 
077777777770001 0, i 0000007777700001, 
3 10 
ia dha eo ae er emer aa 


Note that the control word uses one word of the physical record, and 
that the ten word logical record (1,2,..., 10) could not be completely 


contained in the first physical record of block two. 


Example 3 PR = 10, LR = 5, UNBLOCKED. 


The tape output of a program that writes a five word logical record 
(15:25 55455) two times to an unblocked tape file is illustrated in the 


following manner. 


BLOCK 1 (10 WORDS) BLOCK 2 (10 WORDS) 
0777777777700005, 


0777777777700005. 
T : 


2 
2 3 
4 
5 


An unblocked tape file implies, and is implied by a blocking factor 


of one. 


Example 4 PR = 6, LR = 4, BLOCKING = 5. 


The tape output for a program that writes a four word logical record 


(1,2,3,4) six times is illustrated as the following. 


BLOCK 1 (30 WORDS) 
0777777777700004, 


catia 


w 


i 


ne 


| 


oS 
~ 
~ 
~ 
~ 
~ 
~ 
x 
~ 
~ 
x 
oS 
fo) 
oO 
(=) 
Es 
ao 


tm 
' 
Gs 
wa 


Pe 


Example 5 PR = 10, LR = 25, BLOCKING = 2, 


The tape output for a program that writes a 25 word logical record 


(ie, ear 235 


manner. 
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BLOCK 2 (30 WORDS) 
0777777777700004, 


eee 
eee 
a aeinaae aieretiaecatinentie ati diame atie iene 


eee eee 
st 
Oe eee 


o 8 «9 25) two times is illustrated in the following 


7 : 


9 
0000000000000011 
10 

11 

PR 12 
! 13 

1 14 
15 
16 
17 
18 


on Hun Sw WV 


fe 2) 


BLOCK 1 (20 WORDS). — 
077777000000001 1, | 


a 
w 
= 
nw 
N 
worn nan 


—— 


BLOCK 2 (20 WORDS) 


| 0000007777700007, | 
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| 077777000000001 1, | 
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BLOCK 3 (20 BURTTT TET Tea 
[9000000000000011, | le 


| ti 12 
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| 


| 0000007777700007¢ | 


i= 
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Nv 
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If the logical record is greater than or equal to the physical 


record, then the first (PR-1) words of the logical record will be 


contained in the first associated physical record. 
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Example 6 PR = 10, LR = 25, UNBLOCKED. 


The format of the tape output for a program that writes two 25-word 
logical records (1, 2, 3, . . . ,25) to an unblocked file is 


illustrated as follows. 
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BLOCK 1 (10 WORDS) 
077777000000001 1, 
1 


PR 
LR 


wma HN nN PB WwW w 


BLOCK 2 (10 WORDS) 
nt) 
10 
11 
12 
13 


LR 14 
15 


l] 


1 


16 
17 
18 


BLOCK 3 (10 WORDS) 
0000007777700007, 
19 
20 
21 
22 


LR 


PR 
PR 23 23 
24 24 
25 25 
Senay SADE TE 
eee Rete | 


BLOCK 4 (10 WORDS) 
077777000000001 1, 
1 


Oo AnrXIA NA PR WwW LY 


BLOCK 5 (10 WORDS) 
000000000000001 1g 
10 


fa 
12 
13 
14 
15 
16 
17 
18 


PR 


LR, 


BLOCK 6 (10 WORDS) 
0000007777700007, 
19 
20 
21 
22 


UNFORMATTED DISK OUTPUT 
The disk is allocated into 30 word segments, and the longest record 


that can be written to disk is 1023 words. 


Efficient use of the disk capability can be achieved by using a 
blocking factor that will either be 30 words (240 characters), or an 
integral multiple thereof. 


The compiler generates syntax errors for disk files when PR is 
greater than 1023 words, or the block size (PR x BLOCKING factor) is 
greater than 1890 words (63 disk segments). 


When writing to disk, each block will start at the beginning of the 
next disk segment. 


The size of the logical record is determined by the number of items 
in the I/O list of the WRITE statement. For example: In the state- 


ment WRITE (6) A, B, C, D, E where A, B, C, D, E are simple variabies, 


the logical record size is five. 


The following examples illustrate some of the various disk unformatted 
output formats. PR indicates the number of words in a given physical 


record, and LR the number of words in a given logical record. 
Example 1 PR = 10, LR = 5, BLOCKING = 2. 


The disk output for a program writing a five word logical record 


(1, 2, 3, 4, 5) three times is illustrated in the following 


manner. 
DISK 
SEGMENT 0} 1, | | 
BLOCK == 
DISK SEGMENT (30 WORDS) 
DISK | 
SEGMENT i 2,3 5 


7-41 


It would be more efficient to use a blocking factor of three. 


DISK 


SEGMENT o[ 1421314) 5] a ee | Oa ree nee Lit 4 | ty 2434 5y ae ee | 
ix Lx R—+ 
PR PR PR 


BLOCK 


For maximum efficiency let PR=5, and the BLOCKING factor=6. 
The substitution of these values will create six 5-word logical 


records on one disk segment. 


Example 2 PR = 10, LR = 5, 8, 10, BLOCKING = 2. 


A program that writes three logical records (1, Pras 5), 
(25 2) 3, 4, 5a! Ba "7s 8) and Cis 25 35 4, 5s 6» Ts 8, Qs 10) is 
illustrated in the following manner. 


DISK 
SEGMENT 0 


DISK 
SEGMENT 1) 1 


x = INVALID DATA 


When the disk file is read, both valid and invalid data is pro- 


cessed by the compiler. 


The block size of an unblocked disk file is the same size as the 


physical record; i.e., the blocking factor assumes a value of one. 


If the blocking factor is not specified, and the LR less than or 


equal to the PR, the physical record that contains the logical record 
is written one per block. 
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Example 3 PR = 10, LR = 5, UNBLOCKED. 


The disk output for a program writing a five word logical record 


(1, 2, 3, 4, 5) three times is illustrated in the following 


Manner. 
DISK 
SEGMENT 0 142131415 
: 1R-——| 
PR PR PR 

BLOCK BLOCK BLOCK 
DISK | , , 
SEGMENT 1 1,2,;3 44,5 
DISK 


SEGMENT 2 1,2,3, 4,5 


NOTE 


Each block starts at a new disk segment. 


The length of a logical record cannot exceed the length of a physical 


record. When this condition exists, the remaining (LR-PR) words of 


the logical record are lost. 


Example 4 PR = 10, LR = 25, BLOCKING = 2. 


The disk output for a program writing a 25 word logical record 


(1, 2, 3, ..., 24, 25) three times is illustrated in the fol- 


lowing manner. 


DISK ' | 
SEGMENT 0 14 243,54; 5, 64 7, 8, 9,10} 1,243) 4;) 5,64 74 8) 9,10 
* * 
LR LR 
PR PR 
BLOCK 
DISK 


SEGMENT 1 14 233, 4)5;6 474 84 9,10 


Each logical record is written to the end of the physical record 
as indicated by the asterisk (*), and records 11 through 25 are 
lost. 


When the blocking factor is not specified, and the LR is greater than 
the PR, the physical record will contain the first PR words of the 
logical record. The size of the physical record is the same as the 
size of the block, and each block starts at the beginning of the next 
disk segment when the files are unblocked. 


Example 5 PR = 10, LR = 25, UNBLOCKED 


The disk output for a program writing an unblocked 25-word 
logical record (1, 2, 3, . .. , 24, 25) three times is illus- 
trated in the following manner. 


DISK 
SEGMENT 0 142143 (4151647 48 59 110 


LR 
PR 
}+——___— BLOCK _________+| 
DISK 
SEGMENT 1 [1124344151647 18, 9,10 
DISK 


SEGMENT 2 [1 [213 [4 1516471879 110 


Example 6 PR = 10, LR = 5, BLOCKING =4 


The disk output for a program that writes a five word logical 


record (1, 2, 3, 4, 5) eight times is illustrated in the 


following manner. 


DISK | 
SEGMENT 0 1} 2; 3; 445 1,2 4344145 172734415 


DISK | | 
SEGMENT 1 1]2/314175 


SEGMENT 2 14213 44 15 Lip2434 445 1,2;3 44 45 
DISK 
SEGMENT 3 1{2 43 [4 45 


If a blocking factor of six had been specified, six records 


could be contained in two disk segments. 


However, maximum efficiency could be achieved by letting PR=5, 
along with a blocking factor of 6. Using this case, all six 


records could be contained within one disk segment. 


When the block size is 80, each block will use three disk segments, 
and each block will start at the beginning of the next disk segment. 


Example 7 PR = 40, LR = 20, BLOCKING =2 


The disk output from a program that writes a logical record 


(1, ek a ae a 20) three times is illustrated in the fol- 


lowing manner. 


DISK 
SEGMENT 0 11243444 5p 6] 74849 J OL TE) 12) 134 14) 15y 16417418419 20| 
LR, 

PR» ————$$$_________—________-| 
DISK 
SEGMENT 1 6471819 p10 p11 4124134 14] 15 116117 118 119 | 20 
DISK 
SEGMENT 2 


DISK 1 ! | 


SEGMENT 3 112,374,517 647 18 19 [IOpLLy 12) 13) 14) 15416) 17418) 19 420 


Example 8 PR = 40, LR = 20, UNBLOCKED 


The disk output for a program that writes a logical record 
(1, 2, 3, . . + » 19, 20) three times to an unblocked disk file 


is illustrated in the following manner. 
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DISK 
SEGMENT 0 [1 }2 43 14 55 16474 8,9 110)11) 12] 13414 (15) 16]17 } 18119 }20 


}/}—__—_——— rk, —__________ 
i 

eee oe enna PR, ee eee ee 
DISK 
SEGMENT 1 
si ——| 
| 

! 

BEeaene Caen acer cninicrece eer eetrinc rey | 


LR, —$$—_—_ 
PR 


2 


DISK 
seowents | yy py 1 | 
DISK 


SEGMENT 4 [ t 12 13 1445 161748 19 410411, 12)13414]15 116 117] 18119 120 


Since the blocking factor is undeclared, the physical record 


DISK 
SEGMENT 2 


size also becomes the block size. In the above example, each 


block requires two disk segments. 
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BLOCKING. 


The BLOCKING option on the FILE card provides the capability of 


packing more than one record into a physical block. 


There are two advantages in blocking files: 


Faster I/O speeds can be obtained since many records can 
be brought into or out of internal storage in a single 


access, thus giving a faster access time per record. 


More efficient packing of data can be obtained. For 
example, an 80-character record written on disk unblocked 
would waste 160 characters. This is because the smallest 
addressable area on disk is the segment which contains 
240 characters. By specifying three records per block 
(BLOCKING = 3), 100% utilization of disk can be obtained. 
Another example is tape blocking. By writing longer 
blocks, the amount of tape space wasted by inter-record- 


gaps would be reduced. 


For most efficient utilization of disk, the blocking should be 


such that the block size should be 30 words (240 characters) or 


some integer multiple thereof. 


The block size for disk should not exceed 1890 words. 


The blocking of records during WRITE and unblocking during READ is 


handled automatically by the operating system. 
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BUFFERING. 
The FILE card has an option whereby the number of buffers assigned 


to a file can be specified (two are assigned by defauit). 


The number of buffers that should be specified for a given file 


depends on the characteristics of the file. 


A file from which a record is accessed infrequently should have 
only one buffer. Specifying more wastes internal storage space. 


A file that is accessed frequently should have two buffers. While 
data is being processed into or from one buffer, I/O can be in 


progress on the other buffer. 


A file that is accessed N times between long processing loops should 
have N buffers. Since the operating system always tries to keep 

the buffers full for input and empty for output, the N buffers could 
be processed without having to wait for any actual T/o. Then, during 
the long processing loops, the operating system can do the required 


actual I/O operations. 


DISK I/O. 
The assignment of a file to disk requires the use of a FILE card 


(see appendix B). 


If the AREA option is specified, the first reference to the file 


r 
will cause the MCP to set up a directory indicating the amount of 
disk specified. In making the actual allocation of disk, the MCP 
will subdivide the file into 20 areas, each area containing 1/20 
of the file. Actual- allocation of disk space for each area occurs 


only when a WRITE statement references a record in that area. 
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If the FILE option card does not specify the AREA option, the first 


reference to the file expects the file to exist on disk. 


To create a permanent file on disk, it is necessary to lock the 


file by either: 
a. Specifying the LOCK and SAVE options on the FILE card, or 


b. Executing a LOCK statement on the spécified file before 
the program comes to an end, and specifying the SAVE option 


on the FILE card. 


Each record on disk is addressed by its relative location in the 
file; the first record is record 0 (zero). The MCP, in order to 
compute an actual disk address from a record address, requires 

that each record be of fixed length. This record length is either 
17 words (by default) or the record size specified in the FILE card. 
Attempting to write or read a logical record where the amount of 
data specified by the list exceeds the amount of data in the record 
will result in program termination. For the situation where a 
logical record is written which is smaller than the record size, the 
contents of that portion of the record left unfilled is undefined. 
Attempting to read this undefined data should be avoided; program 


termination can occur. 


Associated with each file on disk is an End-of-File pointer. Each 
WRITE operation updates this pointer so that its value is always 


that of the highest record written. 


SERIAL DISK r/o. Serial Disk r/o is selected by specifying the 
SERIAL option on the FILE card. 


The operating system keeps an internal record pointer to control 
serial disk I/0. This pointer is set to -1 initially. Each READ 
or WRITE statement counts the pointer up by 1, then uses it as the 


relative record address to read or write. 
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The random access forms of the READ or WRITE I/0 statement can be 
used for a file specified serial (see random disk I/O). When used, 
the internai record pointer is set equal to the address specified 
in the 1/o statement rather than being counted by 1. Using the 
random access forms of the r/o statement on files specified as 
serial, although allowed, is slower than when the file is specified 


as random. 


The results of mixing or alternating serial disk READ and WRITE 


statements without intervening REWINDs are not defined, 
REWIND sets the internal record pointer to -1l. 


RANDOM DISK 1/0. Random Disk T/O is selected by specifying RANDOM 
on the FILE card. Associated with random access is a special form 


of file identifier in the READ and WRITE I/O statements as follows: 


where r is the relative address 
of the record to be accessed, 


The rules for the form of r are the same as for an array subscript. 


The record specified by r will be the record accessed, 


The internal record pointer is always set from r in the 1/o state- 
ments, If the serial forms of the I/0 statements are used with a 
file specified random, the internal record pointer is not changed. 
This results in several consecutive serial I/O statements accessing 


the same record repeatedly. 
Mixing READ and WRITE statements is allowed in any sequence, 
REWIND sets the internal record pointer at zero. 


Examples: 


READ(i=I. eee ) 
WRITE(6=(A+B-C)... 
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SECTION 8 
SUBPROGRAMS 


GENERAL. 
A subprogram is a program unit, a self-contained and independent 
routine, which may be referenced by the main program and by other 


subprograms. There are three types of subprograms. 


a. FUNCTION subprograms. 
b. SUBROUTINE subprograms, 
c. BLOCK DATA subprograms. 


FUNCTIONS. 

In mathematics, if the value of one quantity is de 
value or values of another quantity, then it is said to be a func- 
tion of the other quantity. The first quantity is called the 
function and the other quantities are called the arguments. For 


example, in 
arctan(x) 
arctan is the function and x is the argument. 


Functions may be divided into three categories: 


a. Statement functions. 
b. Intrinsic functions, 
Cc. External functions. 


STATEMENT FUNCTIONS. 
A statement function is declared within the program unit in which 
it is referenced, It is defined by a single statement similar in 


form to an arithmetic or logical assignment statement. 


The general form is: 


P(x, Xo Qeee +X )=e 


where f is the statement function name, 
K1»Xo9e0-+-9X, are the dummy arguments, 
and e is an expression. 


a RS aa ES 


The rules for naming a function subprogram are the same as those 

for naming a variable (see section 2). The dummy arguments may 

be simple or subscripted variables. They represent values which 

are passed to the function subprogram and are used in the expression 
e in order to evaluate the function f. The dummy arguments are 
undefined outside of the statement function and may be redefined 
within the program unit. Together, f and e must conform to the 


rules for arithmetic or logical assignment statements. 


Aside from the dummy arguments, the expression e may contain: 


a. Variables used in the program unit. 
b. Intrinsic function references. 


ec. References to previously defined statement functions, 


d. External function references. 


A statement function must be declared before the first executable 


statement. 


A statement function is referenced in the same manner as a FUNCTION 


subprogram is referenced. 


The name of a statement function must not appear in an EXTERNAL 
statement, nor as a variable name or an array name in the same 


program unit. 


Example: 


DIMENSION A(10) 

LOGICAL STAFUN ,Y ,Z 

STAFUN(N)=X .LT. SIN(A(N)) 

READ 25,X,Y,(A(I),I=1,10) 
25 FORMAT(F8.2,L2,10F7.2) 

DO 50 J=1,10 

Z=Y .AND. STAFUN(J) 


SO: 264s 
INTRINSIC FUNCTIONS. 


The intrinsic functions are those functions made available toa 


FORTRAN object program by the operating system. The names, types, 


and definitions of the intrinsic functions are predefined, so they 


need only be referenced in order to be used. 


An intrinsic function name may be redefined within a program unit. 
However, if it has been redefined, then that intrinsic function 
will no longer be recognized by the compiler, but its identifier 


will be used as it has been redefined. 


Also, the user may redefine the meaning of an intrinsic for an entire 
program by providing a FUNCTION subprogram of the same name. How- 
ever, the type of the function and the number and type of its para- 


meters must be the same as the original intrinsic. 


Example: 
REAL FUNCTION SIN(Y) 
SIN=COS(Y) 
RETURN 
END 


An intrinsic function 


4 
= mete a ok 


it aS a primary in an 
arithmetic or logical expression. The actual parameters which 
constitute the parameter list must agree in type; number, and 
order with the specifications in table 8-1, and may be any expres- 
sion of the specified type. (For an explanation of actual para- 
meters; see CALL statement, section 6.) When a real parameter 


is specified, however, an integer parameter may be used, 


Execution of an intrinsic function reference results in the passing 
of the actual parameter values to the corresponding formal parameters 
of the intrinsic function and an evaluation of the intrinsic. The 
resultant value is then assigned to the intrinsic function identifier 


and thereby passed back to the intrinsic function reference. 


Examples: 


IBIG=MAX0(1I,J,K,LEST) 
TANGE=SIN(X+Y) /COS(A-B) 


EXTERNAL FUNCTIONS. 
An external function is a program unit which has as its first state- 


ment a FUNCTION statement. 
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The general form is: 


t FUNCTION f(a, 


where: 


a. t is either INTEGER, REAL, DOUBLE 
PRECISION, LOGICAL, COMPLEX, or 
empty. 


f is the symbolic name of the 
function being defined. 


Azre+e 2a, are formal parameters 
which may be either a variable 
name; an array name; a SUBROUTINE 
or FUNCTION name. 


An external function is normally referenced by another program 
unit. However, Burroughs FORTRAN permits an external function to 


reference itself, i.e., recurse. 


The construction of external functions is subject to the following 


conditions: 


a. The function name must be used as a variable within the, 
function subprogram to the left of the replacement operator 
(=) in an assignment statement at least once. Its value 
at the time of execution of any RETURN statement within 


the function subprogram is the value of the function. 


b. The name of the function must not appear in any non- 
executable statement in the function subprogram, except 


for the FUNCTION statement. 


c. The symbolic names of the formal parameters may not appear 
in an EQUIVALENCE, COMMON, or DATA statement in the func- 


tion subprogram. 


d. The function subprogram may define or redefine one or more 
of its parameters to effectively return resuits in addi- 


tion to the value of the function. 


e. The function subprogram may contain any statements ex- 
cept SUBROUTINE, another FUNCTION statement, or BLOCK 
DATA. 


f. The function subprogram must contain at least one RETURN 


statement. 


g- An END statement must be the last statement of the sub- 


program body. 


Example: 


FUNCTION EVAL(U,V) 
IP(U «LT. V)°GO.TO 1 
EVAL=V/U 
RETURN 

1 EVAL=U/V 
RETURN 
END 


REFERENCING EXTERNAL FUNCTIONS. 

An external function is referenced by using it as a primary in an 
arithmetic or logical expression. The actual parameters, which 
constitute the parameter list, must agree in order, number, and 
type with the corresponding formal parameters in the defining pro- 
gram unit. If a formal parameter is real, an integer actual para- 
meter may be used. An actual parameter in an external function 


reference must be one of the following: 


a. A Hollerith constant. 

b. A variable name. 

c. An array element name. 

d. An array name. 

e. An arithmetic or logical expression. 


fy The name of a function or subroutine. 


If an actual parameter is a function name (external or intrinsic) 
Or a subroutine name, then the corresponding formal parameter 


must be used as a function name or a subroutine Name, respectively. 
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If an actual parameter corresponds to a formal parameter that is 
defined or redefined in the referenced subprogram, the actual 
parameter must be a variable name, an array element name; or an 
array name. Execution of an external function reference, as de- 
scribed in the foregoing, results in an association of actual para- 
meter with all appearances of corresponding formal parameters in 
the executable statements of the subprogram, and in an association 
of actual parameters with variable dimensions; if present, in the 
subprogram. Following these associations, execution of the first 


executable statement of the subprogram body is undertaken. 


An actual parameter which is an array element name containing vari- 
ables in the subscript could in every case be replaced by the same 
parameter with a constant subscript containing the same values as 
would be derived by computing the variable subscript just before 


association of parameters takes place. 


If a formal parameter of an external function is an array name, 
the corresponding actual parameter must be an array name or array 


element name. 


Example: 
TOTAL=EVAL(P,X)+CPS(Y) 
SUBROUTINE. 


A subroutine is defined externally to the program unit that refer- 
ences it. A subroutine defined by a FORTRAN statement headed by a 
SUBROUTINE statement is called a subroutine subprogram. 


DEFINING SUBROUTINE SUBPROGRAMS. 
The SUBROUTINE statement is one of the forms: 


SUBROUTINE N 


SUBROUTINE N (a,,a,,---a,) 


The letter N is the symbolic name of 
the subroutine to be defined. 


b. The a's are formal parameters which may be 
either a variable name, an array name, a 
function or subroutine name, or an asterisk (*). 


The construction of subroutine subprograms is subject to the 


following restrictions: 


a. The symbolic names of the formai parameters may not appear 
in an EQUIVALENCE, COMMON, NAMELIST, or DATA statement in 
the subprogram. 

b. The subroutine subprogram may define or redefine one or 
more of its parameters in order to effectively return 
results. - 

c. The subroutine subprogram may contain any statements ex- 
cept FUNCTION, another SUBROUTINE statement, or BLOCK DATA. 

d. The subroutine subprogram must contain at least one 
RETURN, STOP, or CALL EXIT statement. 

e. An END must be physically the last statement. 

In Burroughs FORTRAN, a subroutine may call itself, i.e., recurse,. 
Example: 


SUBROUTINE FALL(T,V,S) 
G=32.172 

S=G*T**2/2 

V=G*T 


PASSING ARRAY DATA TO A SUBROUTINE. The first subscript of an array 


varries most rapidly, and the last subscript the least rapidly. An 


array A dimensioned 3 x 3 is linearly layed-out as follows: 


FS PT ey 


Example: 


DIMENSION A (3,3) 
DO 10 I=1,3 
DO 10 J=1,3 
K= K+l1 
A(I,J) = K 

10 CONTINUE 
M=2 
CALL SUB (A,M) 
STOP 
END 
SUBROUTINE SUB (B,N) 
DIMENSION B (N,N) 
RETURN 
END 


In this example, the main program assigns values to the A array and 
variable M, and then passes the data to the subroutine SUB. The act- 
ual parameters A and M corresponds to the formal parameters B and N of 
the subroutine. Note: The B array is dimensioned 2x23; whereas, A is 


dimensioned 3x3. 


The following is an example of the mapping sequence set-up between the 


four elements of B, and the first four elements of A. 


4 


The mapping is always set-up so that the n elements of the subroutine 


6 4 8 9 


array will correspond to the first n elements of the array passed to 


it in the calling program. 


When an array is passed to a subroutine, the size of the correspond- 
ing subroutine array cannot exceed the size of the array being passed 
by the calling program. If this condition exists an "INVALID INDEX" 


message is printed at the time of program execution, 
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NONSTANDARD RETURNS FROM SUBROUTINES. 


If a subroutine contains one or more nonstandard return state- 


ments (has the term RETURN n), the formal parameter list must 


contain one asterisk (*) for each return number. The actual 


parameter list of the referencing program unit must then have a 


dollar sign ($) followed by a label in the corresponding position. 


Example: 


10 


15 


Calling Program 


CALL XYZ (A,B, $10 


END 


In the above example, if the v 


Called Program 
SUBROUTINE XYZ (U,V, *,*) 
» $15) IF (EXP) 1,2,3 
1 RETURN 
2 RETURN 1 
3 


RETURN 2 
END 


alue of EXP is negative, control will 


be returned to the referencing program at the statement labeled 5; 


if the value of EXP is zero, c 


ontrol will be returned at label 10; 


and if the value of EXP is positive, control wiil be returned at 


label 15. 


MULTIPLE ENTRY POINTS INTO A SUBPROGRAM. 


For a normal entry into a subroutine subprogram, a CALL statement 


that refers to the subroutine -is used. A normal entry into a 


FUNCTION subprogram is made by a reference to the function name 


in an arithmetic expression. 


Entry is made at the first executable 


statement following the SUBROUTINE or FUNCTION statement. 


A subprogram can also be entered by way of a CALL statement or a 
function reference that refers to the name in an ENTRY statement 
in the subprogram. The entry is made at the first executable state- 


ment following the ENTRY statement. 


ENTRY statements are non-executable. Therefore, they do not affect 
control sequencing during normal execution of a subprogram. The 
type, order, and number of parameters need not agree between the 
SUBROUTINE or FUNCTION statement and the ENTRY statement, nor do 
the ENTRY statements have to agree among themselves. However, each 
CALL or function reference must agree in type, order, and number 


with the SUBROUTINE, FUNCTION, or ENTRY statement that it refers to. 


The ENTRY statement in the called subprogram is one of the forms: 


ENTRY N 


ENTRY N(aj.a9;.--a,) 


where: 
a. N is the symbolic name of an entry point. 


b. The a's are formal parameters which may be 
either a variable name; an array name; a 
subroutine or function name, or an asterisk (*). 


Example: 
Calling Program Called Program 
er SUBROUTINE SUB(U,V,W,X) 
5 CALL SUB(A,B,C,D) tt 
eum 1) wg og 
10 CALL ENT1 ENTRY ENT1 
ne GO TO 10 


15 CALL ENT2(G,H) ait 
Seales ENTRY ENT2(G,H) 


END 


In the above example, execution of statement 5 causes entry into 


SUB, starting with the first executable statement of the subroutine. 


Execution of statements 10 and 15 also causes entry into the called 


program, 


starting with the first executable statement following the 


ENTRY ENT1 and ENTRY ENT2(G,H) statements respectively. 


The following are additional rules for entry points: 


Ae 


An ENTRY name may appear in an EXTERNAL statement in the 
same manner as a FUNCTION or SUBROUTINE name. 


ENTRY statements may appear only in subprograms. 


Entry into a subprogram initializes all references in the 
entire called subprogram from items in the parameter list 


of the CALL or function reference. 


If an adjustable array name or any of its variable 
dimensions appear in a parameter list for a FUNCTION, 
SUBROUTINE, or ENTRY statement, that array name and all 
its variable dimensions must appear in that parameter 


list. 


If an array is passed as a parameter to a SUBROUTINE or 
FUNCTION and is also used by a section of the program 
entered through an ENTRY statement, then the array name 


must appear in the parameter list of the ENTRY statement. 


In a FUNCTION subprogram, only the FUNCTION name may be 
used as the variable to carry a result back to the call- 
ing program. The ENTRY name may not be used for this 


purpose. 


An ENTRY name defined in a subroutine subprogram, if refer- 
enced, must be referenced by a CALL statement. Similarly, 
an entry defined in a function subprogram, if referenced, 


must be referenced as a function. 


BLOCK DATA, 
Further use of the DATA statement is in the BLOCK DATA subprogram, 


Tt is used to enter data into COMMON blocks; however, the follow- 


ing must be observeds 


a. There may be no executable statements in a BLOCK DATA 
subprogram. The first statement of the subprogram must 


be BLOCK DATA. 


b. The subprogram may contain only Type, EQUIVALENCE, DATA, 
DIMENSION, and COMMON statements. 


c. All elements of a COMMON BLOCK must appear in the COMMON 
statement list even though some do not appear in the DATA 


statement list. 


d. More than one COMMON block may be initialized by a single 
BLOCK DATA subprogram. 


e. There may be as many BLOCK DATA subprograms as desired 
in a program, but any block identifier may occur in only 


one BLOCK DATA subprogram.,. 


Example: 


BLOCK DATA 
COMMON /TEST/ K, L, S/ AATWO/ B,C 
DIMENSION C(10) 

DATA Ly S/1,.355/5 C/ 10*16.2/ 
END 
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Table 8-1 


Resulting Actions of an Intrinsic Function 


Function 


Absolute Value 


Truncation 


Remaindering* 


Choosing Largest Value 


Choosing Smallest Value 


Float 


*Notes: 


| a| 


Sign of 
largest 
<| al 


(mod 


Definition 


Max (a, sa,---) 


Min (a, :a,---) 


Conversion 
from integer 


to real 


[a] denotes the integral part of a. 


Number of 
Arguments 


1 

a times 1 
integer 

2) a 

>2 

22 

1 


Symbolic Type of 
Name Argument 
ba ee es 


ABS 
IABS 
DABS 
CABS 


AINT 
INT 
IDINT 


AMOD 
MOD 
DMOD 


AMAXO 
AMAX1 
MAXO 
MAX1L 
DMAX1 


AMINO 
AMINI 
MINO 
MIN1 
DMIN1I 


FLOAT 


The functions MOD, AMOD and DMOD (a, 2a, ) are defined as ay 


Type of 
Function . 
Real Real 
Integer Integer 
Double Double 
Complex Real 
Real Real 
Real Integer 
Double Integer 
Real Real 
Integer Integer 
Double Double 
Integer Real 
Real Real 
Integer Integer 
Real Integer 
Double Double 
Integer Real 
Real Real 
Integer Integer 
Real Integer 
Double Double 
Integer Real 
- [a y/4o]*5 » where 
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Table 8-1 (cont) 


Resulting Actions of an Intrinsic Function 


et A a Stn md 


Transfer of sign 


Positive Difference 


Obtain Most Significant 
Part of Double Precision 
Argument 

Express Single Precision 
Argument in Double 
Precision Form 

Obtain Real Part 

Obtain Imaginary Part 
*reate Complex 


Somplex Conjugate 


Exponential 


Definition 


Conversion 
from real 
to integer 


sign of a 


2 
| 


times Ja, 


a,-Min (a, sa.) 


Number of 
Arguments 


Symbolic 
Name 


Type of 


Argument 


Real 


Real 
Integer 
Double 


Real 
Integer 


Double 


Real 


Complex 
Complex 
Real 

Complex 


Real 
Double 
Complex 


Type of 
Function 


Integer 


Real 
Integer 
Double 


Real 
Integer 


Real 


Double 


Real 
Real 
Complex 
Complex 
Real 


Double 
Complex 
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Function 


Natural Logarithm 


Common Logarithm 


Trigometric Sine 


Trigometric Cosine 


Arctangent 


Arctangent 


Square Root 


Hyperbolic Tangent 
Trigometric Tangent 


Trigometric Cotangent 


NOTE: Where 


Table 8-1 (cont) 


Resulting Actions of an Intrinsic Function 


Definition 


logy, (a) 


sin (a) 
cos (a) 


arctan (a) 


arctan (a,/a,) 


(a) 1/2 


tanh (a) 
tan (a) 


cot (a) 


applicable, 


Number of 
Arguments 


1 


Symbolic 
Name 


ALOG10 
DLOG10O 


SIN 
DSIN 
CSIN 


COS 
DCOS 
CcCOos 


ATAN 
DATAN 


ATAN2 


DATAN2 


SQRT 
DSQRT 
CSQRT 

TANH 

TAN 


COTAN 


Type of 


Argument 


Real 
Double 


Real 


Double 
Complex 


Real 


Double 
Complex 


Real 
Double 


Real 
Double 


Real 
Double 
Complex 
Real 
Real 


Real 


trigonometric functions must be in radians. 


Type of 
Function | 


Real 
Double 
Complex 


Real 
Double 


Real 
Double 
Complex 


Real 
Double 
Complex 


Real 
Double 


Real 
Double 


Real 
Double 
Complex 
Real 
Real 


Real 


LIAS 


Table 8-1 (cont) 


Resulting Actions of an Intrinsic Function 


Type of 
Function 


Type of 
Argument 


Symbolic 
Name 


Number of 
Arguments 


Function Definition 


Arcsine arcsine (a) Real 


Real 


Arccosine arccosine (a) 


Hyperbolic Sine sinh (a) SINH Real 


Hyperbolic Cosine cosh (a) COSH Real Real 
Error Function error function (a) ERE Real Real 
Gamma Function gamma (a) GAMMA Real Real 
Log Gamma Function log gamma (a) ALGAMA Real Real 
47-bit Logical AND AND Real Real 
47-bit Logical OR OR Real Real 
47-bit Logical COMPLEMENT COMPL Real Real 
47-bit Logical EQUIVALENCE PQUIV Real Real 
Concatenation CONCAT Real Real 
Integer 
Time O, date in TIME Integer Alpha 
form OYYDDD when 
(right- a0 
adjusted) 
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Table 8-1 (cont) 


Resulting Actions of an Intrinsic Function 


Number of 
Arguments. 


Symbolic Type of 


Argument 


Type of 
Function 


Function Definition 


1, time of day 
in sixtieths 
of a second 
(based on 24- 
hour clock) 


Time (cont ) 


a = 2, elapsed 
processor time 
of program 
since its 
start in six- 
tieths of a 
second. 


a = 3, elapsed 1/0 
time of pro- 
gram since its 
start in six- 
tieths of a 
second. 


a = 4, value of 
6-bit machine 


ee NS 
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APPENDIX A 
GLOSSARY 


ACTUAL PARAMETERS. Those parameters in the parameter list of a 
subroutine call or function reference. In contrast to FORMAL 


PARAMETERS. 


ALPHANUMERIC. Contraction of alphabetic and numeric, signifying 


the alphabetic and numeric characters. 
ASSTGNMENT OPERATOR. In FORTRAN, the equal sign (=). 
BCL. An acronym for Burroughs Common Language. 


EXECUTABLE PROGRAM. A program that can be used as a self-contained 
computing procedure. It consists minimally of one main program. 


Tt may consist of one main program and any number of subprograms. 


EXECUTABLE STATEMENT. A non-declarative statement which is ex- 
ecuted at object time. In contrast to NON-EXECUTABLE STATEMENT. 


EXPONENT. That part of a real (floating-point) number which deter- 


mines the decimal point placement in the mantissa. 


EXPRESSION. Any constant, variable, or function reference, or any 


combination of these separated by operators; commas, or parentheses. 


FIXED-POINT. An arithmetic notation in which the decimal point is 
not present and is assumed to be on the extreme right of a number. 


In contrast to FLOATING-POINT. 


FLOATING-POINT. An arithmetic notation in which the position of the 
decimal point does not remain fixed with respect to one end of the 


numerals. In contrast to FIXED-POINT. 


FORMAL PARAMETERS. Those parameters in the parameter list of a 
subroutine or function declaration. In contrast to ACTUAL PARA- 


METERS. 


MAIN PROGRAM. A set of statements and comments not containing a 
FUNCTION, SUBROUTINE, or BLOCK DATA statement. 


MANTISSA. That part of a real (floating-point ) number which con- 


tains the significant digits. 


MCP. An acronym for the Master Control Program, the executive 


system, 


NON-EXECUTABLE STATEMENT. A declaration which, at compile time, 
provides the compiler with a description of data. It is not ex- 


ecuted at object time. In contrast to EXECUTABLE STATEMENT. 


PRIMARY. An arithmetic expression enclosed in parentheses, a 
constant, a variable reference, an array element reference, ora 


function reference. 
PROGRAM UNIT. Refers to either a main program or subprogram. 


PRT. An acronym for Program Reference Table. An area in memory 
for the storage of operands, references to arrays; references to 
segments of a program, and references to files. Permits programs 
to be independent of the actual memory locations occupied by data 


and parts of the program, 


REFERENCE. A term used with special meaning to indicate an identi- 


fication of: 


a. A datum, implying that the current value of the datum will 
be made available during the execution of the statement 


containing the reference. 


b. <A procedure, implying that the actions specified by the 


procedure will be made available upon reference. 


SPO. An acronym for SuPervisOry Printer; the system console type- 
writer. 
SUBPROGRAM. A set of statements and comments headed by a FPUNCTION ,; 


SUBROUTINE, or BLOCK DATA statement. 


A-2 


APPENDIX B 
FILE CARDS 


FILE cards are optional since ali the parameters used in declaring 
a file have default values. The various I/O statements and their 
default descriptions when a FILE card is not used are listed in 
table B-~l. Time-Sharing FORTRAN default conditions are described 


in appendix J. 
Table Bel 


File Default Descriptions 


T/O Statement Blocking Peripheral 


READ f,k* READER 10 Word Buffer, Alpha Tape or 
80 Characters Card Reader 
-READ(u,f) k FILEi 17 Word Buffer, Binary | Tape 
READ(u) k (where i is the [132 Characters, 
value of u) (size of logical 
record is un- 
limited) 
WRITE(u,f) k FILEi 17 Word Buffer Binary | Tape 
WRITE(u) k (where i is the | 132 Characters, 
value of u) (size of logical 
record is un- 
limited) 
PRINT f,k* PRINT 17 Word Buffer, Alpha Line Printer 
132 Characters 
PUNCH f£,k* PUNCH 10 Word Buffer, Alpha Card Punch 
80 Characters 
NOTE 


In all cases, 
the multi-file 
name is empty. 


| *FILE cards cannot be used for these I/O statements. | 


FILE CARD FORMAT 


FILE cards are free format, with the exception of card columns 1-6: 


2345 6 (card column) 
I LEbb 


where a blank is denoted by b. 


Columns 73 through 80 are used for a sequence number or identifica- 
tion only, and will be ignored by the compiler except when merging 


a card and tape file at compile time. 


Following the two blanks, the following information must be inserted 


in free format: 


N = FID 


N = MFID/FID 


where N is an unsigned integer constant representing the logical 
unit number. It is the value of u in READ(u,f)k and WRITE(u,f)k. 
MFID is the multi-file identification, and FID is the file identifi- 
cation. If MFID is not vaetudeds then it is assumed to be seven 
zeros. For further information, reference should be made to the 


System Operation Manual, 


The following is a list of options which may be included on the 
FILE card. They may be in free format, but they must come in the 


which they are given below: 


a. »UNIT = t 
where t is one of the following: 

PRINT 

PRINTER 

READER 

PUNCH 

DISK 

TAPE 

REMOTE 


TAPE is the default option for UNIT. 


b. » UNLABELED 


LABELED is the default option if unlabeled is not specified 
(tape only). 


, ALPHA 
BINARY is the default option if ALPHA is not specified 
(tape only). 


,oAVE = n 
where n is an unsigned integer whose value cannot exceed 
999. It is the save factor, in days (see System Operation 


Manual). The default save factor is zero. 


,» LOCK 

When this option is used, the MCP will close and lock a 
disk file when the program creating it has gone to End- 
of-Job (see tape and disk 1/0, section 7). In the case 
of a disk file, if a CLOSE statement or END FILE state- 
ment appears for the designated file, the LOCK will be 


overridden and the file will be released. 


» SERIAL 
» RANDOM 
This option specifies the access mode for disk files only. 


The default option is SERIAL. 


,AREA = n 

where n is an unsigned integer constant which denotes the 
amount of area on disk (in number of records) to reserve 
for this file (see tape and disk I/O, section 7). Ifa 
file is to be opened for input this option must not be 


present. 


», BLOCKING = n 
where n is an unsigned integer which represents the num- 
ber of logical records per physical block. The default 


option is unbiocked files, i.e., a blocking factor of one. 


»RECORD = n 
where n is an unsigned integer which represents the size 
(in words) of a logical record. The default option is 17 


(see table B-1). 


je , BUFFER = n 
where n is an unsigned integer which represents the num- 
ber of buffers. The default option is 2 (see tape and 
disk I/0, section 7). 


If the FILE option extends across more than one card, then the next 
card must be flagged as a FORTRAN continuation card with a charac- 


ter other than a blank or zero in card column 6. 


In the I/O statements READ(u,f)k and WRITE(u,f)k, if u is not an 
integer constant, then its value at run time must correspond to 


a logical unit number declared on a FILE card. 
If the option 
UNIT = t 


is used to declare the file as a line printer, card punch, or card 
reader, then the remaining default descriptions used for this file 


are designated in table B-l. 


APPENDIX C 
DOLLAR SIGN CARDS 


A dollar sign card is optional and is used to indicate to the compi- 
ler that certain options are to be used at compile time. The format 


of a dollar sign card is: 


Card Column Contents 
1 $ 
2-72 Options in free field format. 
73-80 Card number or blank. 


a. Immediately after the MCP control cards used for compila- 
tion and immediately before the first FORTRAN FILE card 
or FORTRAN source or patch card if no FILE cards are used 


(see section 1). 


b. Anywhere else in the source or patch deck with a proper 
sequence number in order to change options at some point 
in compilation, e.g., to list only a part of the compiled 
source program. Dollar sign cards may not, however, be 


interspersed with the continuation cards of a multi-card 


statement. 
Example: 
sequence 
Number 
$CARD 00000100 
A=B+C 00009000 
$CARD LIST 00009100 
X=SQRT (Y**24+Z%*2) 00009200 
PAR=TAN(X/A) 00009300 
V=SIN(X+Y-Z) 00012200 
$CARD 00012300 


Only cards 00009200 through 00012200 will be listed on the file LINE. 


Each dollar sign card causes all previous options to be reset, with 
the exceptions: $REMOTE, $ONSITE, $SEQXEQ, $SEQ, $NOSEQ, and $TIME. 
If no dollar sign card is included with the source deck, then the 


CARD and LIST options are assumed (see appendix ee 
The various options available are as follows: 


TAPE or CARD 
a. One of these, but not both, should be the first option on the 


dollar sign card immediately following the dollar sign. 


b. CARD indicates to the compiler that the source program input 


is entirely from the file labeled CARD. 


c. TAPE indicates to the compiler that the source program input 
is from the file named TAPE and labeled FORSYM and that 
change or patch cards may be inputted from the file labeled 
CARD. If a change or patch card file is used, then it is 
merged into the source program from the file named TAPE and 
iabelied FORSYM as a function of the sequence number in coi- 
umns 73-80. If a listing is obtained, then the source 
statements from the TAPE file will have a T following the 
sequence number, and the source statements being merged from 
the CARD file will have an R following the sequence number 


on the compiled source listing. The merging process uses 


the system alphanumeric collating sequence (see appendix G). 


d. If the first word on a dollar control card is not CARD or 
TAPE, then the dollar control card input mode (either card 
or tape) is set to the mode of the previous dollar control 


card. The initial mode is card, 


LIST 
a. If present; then a compiled source listing of the source 
program will be made on the file LINE, including any change 


or patch cards. 


SGL or 


ae 


" Ua 


a. 


PRT 


Ce 


DEBUGN 


Ae 


TRACE 


Ae 


Segment and address information will also be listed with 


the source program, 


SINGLE. 


If present, then a single-spaced compiled source listing of 
the source program will be made on the file line. If LIST is 


also present, the SGL or SINGLE takes precedence. 


If present, a new source tape file labeled FORSYM is 
created which includes all change or patch cards and 


FILE cards; but does not include dollar sign cards. 


If present, then a listing of the source program will be 
made on the file LINE, including any change or patch 
cards, and at the end of each program unit listing, a 


listing of PRT* and stack assignments for each local 


identifier within that program unit will be made. 


At the end of the entire program, PRT assignments for 


all global names will be listed. 


If PRT is specified, then LIST is automatically evoked. 


If present, then the actual machine code emitted by the 
compiler is also listed on the file LINE together with 


octal values of constants and format of PRT entries. 


If DEBUGN is specified, then PRT and LIST are automatically 


evoked. 


If present, then information is listed on the file LINE 
which indicates how the FORTRAN compiler is analyzing the 


syntax of the source program. 


* PRT is an abbreviation for Program Reference Table (see the System 
Operation Manual), 


b. TRACE should be used only in extreme cases because of the 


great volume of output produced. 


c. If TRACE is specified, the LIST, PRT, and DEBUGN options 


are automatically evoked. 


SEQ f s i 
a. If present, the listing on file LINE and the new source 
program on the file NEWTAPE, labeled FORSYM (if NEW or 
NEW TAPE is specified), will be resequenced. 


b. The specifications following SEQ have the following in- 


terpretations: 


f - the sequence number of the first card of the 


source program. 


s - any special character, usually plus (+) or 


comma (,). 


i - increment. Tf i=O, or iis not a number, then 


an increment of 1000 is used. 


c. The SEQ option, if used, must be the last option on the 


dollar sign card. 


a. If present, will cause the SEQ option to be turned off. 


a. If the source cards are punched in IBM code and the HOL 
option is not used, then the listing of the source program 
produced by the compiler will be in IBM card codes, e.@g.; 
( will be printed as %, = will be printed as #, etc. How- 
ever, the compiler will properly interpret the source 


program and compile it. 


TIME 


CHECK 


a. 


If the source cards are punched in IBM card code and the 
HOL option is used, then all characters will be converted 


to BCL before printing on the file LINE. 


If the source cards are punched in IBM /360 card code, then 


the HOL option must be used to convert the source program 


to BCL. 


The HOL option will translate all IBM or IBM/360 cards 

to BCL including strings and Hollerith constants. This 
option also causes the object program produced by the 
compiler to automatically convert into BCL data read with 
an A format specification and data read into Hollerith 


strings. 


The use of the HOL option will slow compilation speed. 
For repeated compilations from large source programs , 

it would be advantageous to use the NEW TAPE option with 
HOL on the first compilation. Thereafter, compilations 
may be made without the HOL option from the generated 


source tape. 


If present and if the LIST option is not present, then the 


source program will not be listed, but at the end of the 


compilation, compilation information will be listed on the 


file LINE. 


If present, the number of sequence errors detected in the 


rinted next to the number of syntax errors. 


Also, under the $CHECK option, a sequence error for a source 


record will cause the card image and a warning message to 


be written to the file LINE: 


SEQUENCE ERROR "n"! < "p" 


where n is the sequence number of the card image and p is 
the sequence number of the previous card image. The system 


alphanumeric collating sequence is used (see appendix G). 


VOID n 
a. If present, VOID must be the only option on the dollar 
sign card. This option is used only when merging a CARD 


and TAPE file. 


b. If present, and if n is blank, the record on the TAPE 
file with the same sequence number (in columns 73-80) as 
the $VOID card will be ignored by the compiler, will not 
be listed on the file LINE, and will not be inserted in 
the file NEWTAPE, if the NEW option has been specified 


previously. 


Cc. If present, and if n is not blank, n must be the sequence 
number of a record existing on the TAPE file Aaa, in addi- 
tion, the $VOID card must have a sequence number in 
columns 73-80. The records on the TAPE file, starting 
with the record which has the same sequence number as the 
$VOID card (columns 73-80), will be ignored up to but not 
including the record on the TAPE file with the sequence 
number n. These records will be ignored by the compiler, 
not listed on the file LINE, and not inserted in the file 
NEWTAPE, if the NEW option has been specified previously. 


d. If the first word on a dollar control card is not VOID, 
all dollar control card options are set to OFF. Only 
those options invoked by the current dollar control card 


are set to ON. 


NOTE 
See appendix J, Time-Sharing FORTRAN; 


for additional option information. 


APPENDIX D 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGE 


SYNTAX ERROR 

MISSING OPERATOR OR PUNCTUATION 

CONFLICTING COMMON AND/OR EQUIVALENCE ALLOCATION 
MISSING RIGHT PARENTHESIS 

ENTRY STMT ILLEGAL IN MAIN PGM OR BLOCK DATA 
MISSING END STATEMENT 

ARITHMETIC EXPRESSION REQUIRED 

LOGICAL EXPRESSION REQUIRED 

TOO MANY LEFT PARENTHESES 

TOO MANY RIGHT PARENTHESES 

FORMAL PARAMETER ILLEGAL IN COMMON 

FORMAL PARAMETER ILLEGAL IN EQUIVALENCE 

THIS STATEMENT ILLEGAL IN BLOCK DATA SUBPROGRAM 
INFO ARRAY OVERFLOW 

IMPROPER DO NEST 

DO LABEL PREVIOUSLY DEFINED 

UNRECOGNIZED STATEMENT TYPE 

ILLEGAL DO STATEMENT 

FORMAT STATEMENT MUST HAVE LABEL 

UNDEFINED LABEL 

MULTIPLE DEFINITION 

ILLEGAL IDENTIFIER CLASS IN THIS CONTEXT 
UNPATRED QUOTES IN FORMAT 

NOT ENOUGH SUBSCRIPTS 

TOO MANY SUBSCRIPTS 

FUNCTION OR SUBROUTINE PREVIOUSLY DEFINED 
FORMAL PARAMETER MULTIPLY DEFINED IN HEADING 
ILLEGAL USE OF NAMELIST 

NUMBER OF PARAMETERS INCONSISTENT 

CANNOT BRANCH TO FORMAT STATEMENT 


7 fay 
SUBROUTINE OR FUNCTION NOT DEFINED IN PROGRAM 


APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


IDENTIFIER ALREADY GIVEN TYPE 

ILLEGAL FORMAT SYNTAX 

INCORRECT USE OF FILE 

INCONSISTENT USE OF IDENTIFIER 

ARRAY IDENTIFIER EXPECTED 

EXPRESSION VALUE REQUIRED 

ILLEGAL FILE CARD SYNTAX 

ILLEGAL CONTROL ELEMENT 

DECLARATION MUST PRECEDE FIRST REFERENCE 
INCONSISTENT USE OF LABEL AS PARAMETER 

NO. OF PARAMS. DISAGREES WITH PREV. REFERENCE 
ILLEGAL USE OF FORMAL PARAMETER 

ERROR IN HOLLERITH LITERAL CHARACTER COUNT 
ILLEGAL USE OF FORMAL PARAMETER 

TOO MANY SEGMENTS IN SOURCE PROGRAM 

TOO MANY PRT ASSIGNMENTS IN SOURCE PROGRAM 
LAST BLOCK DECLARATION HAD LESS THAN 1024 WORDS 
ILLEGAL I/O LIST ELEMENT 

LEFT SIDE MUST BE SIMPLE OR SUBSCRIPTED VARIABLE 
VARIABLE EXPECTED 

ILLEGAL USE OF .OR. 

ILLEGAL USE OF .AND. 

ILLEGAL USE OF .NOT. 

ILLEGAL USE OF RELATIONAL OPERATOR 

ILLEGAL MIXED TYPES 

TLLEGAL EXPRESSION STRUCTURE 

TLLEGAL PARAMETER 

RECORD BLOCK GREATER THAN 1023 

TOO MANY OPTIONAL FILES 

FILE CARDS MUST PRECEDE SOURCE DECK 


BINARY WRITE STATEMENT HAS NO LIST 


ERROR 
NUMBER 


062 
063 
064 
065 
066 
067 
068 
069 
070 


APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


UNDEFINED FORMAT NUMBER 

ILLEGAL EXPONENT IN CONSTANT 

ILLEGAL CONSTANT IN DATA STATEMENT 

MATIN PROGRAM MISSING 

PARAMETER MUST BE ARRAY IDENTIFIER 

PARAMETER MUST BE EXPRESSION 

PARAMETER MUST BE LABEL 

PARAMETER MUST BE FUNCTION IDENTIFIER 
PARAMETER MUST BE FUNCTION OR SUBROUTINE ID 
PARAMETER MUST BE SUBROUTINE IDENTIFIER 
PARAMETER MUST BE ARRAY IDENTIFIER OR EXPRESSION 
ARITHMETIC - LOGICAL CONFLICT ON STORE 

ARRAYID MUST BE SUBSCRIPTED IN THIS CONTEXT 
MORE THAN ONE MAIN PROGRAM 

ONLY COMMON ELEMENTS PERMITTED 

TOO MANY FILES 

FORMAT OR NAMELIST TOO LONG 

FORMAL PARAMETER MUST BE ARRAY IDENTIFIER 
FORMAL PARAMETER MUST BE SIMPLE VARIABLE 
FORMAL PARAMETER MUST BE FUNCTION IDENTIFIER 
FORMAL PARAMETER MUST BE SUBROUTINE IDENTIFIER 
FORMAL PARAMETER MUST BE FUNCTION OR SUBROUTINE 
DO OR IMPLIED DO INDEX MUST BE INTEGER OR REAL 
ILLEGAL COMPLEX CONSTANT 

ILLEGAL MIXED TYPE STORE 

CONSTANT EXCEEDS HARDWARE LIMITS 

PARAMETER TYPE CONFLICTS WITH PREVIOUS USE 
COMPLEX EXPRESSION ILLEGAL IN IF STATEMENT 
COMPLEX EXPRESSION ILLEGAL IN RELATION 

TOO MANY FORMATS REFERENCED BUT NOT YET FOUND 
VARTABLE ARRAY BOUND MUST BE FORMAL VARIABLE 
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APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


ARRAY BOUND MUST HAVE INTEGER OR REAL TYPE 
COMMA OR RIGHT PARENTHESIS EXPECTED 

ARRAY ALREADY GIVEN BOUNDS 

ONLY FORMAL ARRAYS MUST BE GIVEN VARIABLE BOUNDS 
MISSING LEFT PARENTHESIS IN IMPLIED DO 
SUBSCRIPT MUST BE INTEGER OR REAL 

ARRAY SIZE CANNOT EXCEED 32767 WORDS 

COMMON OR EQUIV BLOCK CANNOT EXCEED 32767 WORDS 
THIS STATEMENT ILLEGAL IN LOGICAL IF 

REAL OR INTEGER TYPE REQUIRED 

ARRAY BOUND INFORMATION REQUIRED 

REPLACEMENT OPERATOR EXPECTED 

IDENTIFIER EXPECTED 

LEFT PARENTHESIS EXPECTED 

L FORMAL PARAMETER 

RIGHT PARENTHESIS EXPECTED 

STATEMENT NUMBER EXPECTED 

SLASH EXPECTED 

ENTRY STATEMENT CANNOT START PROGRAM UNIT 
ARRAY MUST BE DIMENSIONED PRIOR TO EQUIV STMT 
INTEGER CONSTANT EXPECTED 

COMMA EXPECTED 

SLASH OR END OF STATEMENT EXPECTED 

FORMAT, ARRAY OR NAMELIST EXPECTED 

END OF STATEMENT EXPECTED 

IO STATEMENT WITH NAMELIST CANNOT HAVE IO LIST 
COMMA OR END OF STATEMENT EXPECTED 

STRING TOO LONG 

MISSING QUOTE AT END OF STRING 

TLLEGAL ARRAY BOUND 

TOO MANY HANGING BRANCHES 


ERROR 


NUMBER 


124 
125 
126 


APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


TOO MANY COMMON OR EQUIVALENCE ELEMENTS 
ASTERISK EXPECTED 

COMMA OR SLASH EXPECTED 

DATA SET TOO LARGE 

TOO MANY ENTRY STATEMENTS IN THIS SUBPROGRAM 
DECIMAL WIDTH EXCEEDS FIELD WIDTH 
UNSPECIFIED FIELD WIDTH 


ILLEGAL FORMAT CHARACTER 
UNSPECIFIED DECIMAL FIELD 
DECIMAL FIELD ILLEGAL FOR THIS SPECIFIER 


UNDEFINED NAMELIST 

MULTIPLY DEFINED ACTION LABELS 

TOO MANY NESTED DO STATEMENTS 

STMT FUNCTION ID AND EXPRESSION DISAGREE IN TYPE 
ILLEGAL USE OF STATEMENT FUNCTION 

UNRECOGNIZED CONSTRUCT 

RETURN, STOP OR CALL EXIT REQUIRED IN SUBPROGRAM 
FORMAT NUMBER USED PREVIOUSLY AS LABEL 

LABEL USED PREVIOUSLY AS FORMAT NUMBER 
NON-STANDARD RETURN REQUIRES LABEL PARAMETERS 
DOUBLE OR COMPLEX REQUIRES EVEN OFFSET 

FORMAT PARAMETER ILLEGAL IN DATA STATEMENT 

TOO MANY LOCAL VARIABLES IN SOURCE PROGRAM 

A TSS SOURCE LINE MUST HAVE LESS THAN 67 COL 

A TSS HOL OR QUOTED STRING MUST BE ON 1 LINE 
THIS CONSTRUCT IS ILLEGAL IN TSS FORTRAN 

ILLEGAL FILE CARD PARAMETER VALUE 


SEQUENCE ERROR "n" < "p", 
where n is the sequence number of the card image and 
+h 
i 


p is the sequence number of the previous card image. 
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APPENDIX E 
OBJECT TIME ERROR TERMINATION MESSAGES 


The following object time error termination messages may be gen- 
erated by FORTRAN compiled programs: 


ARG .GT. MAX f (where f is CSIN or CCOS) 
Imaginary component exceeds 158. 
DATA STMT ERR 


ae Too much or too little data for list. 


AE eae de ea oa A 
L Hust CEULLPespolna 


with complex, double; or logical data. 
DIV BY ZERO (job specifier), (terminal reference) 


An object program performed a Divide operation using a zero 


denominator; processing of the subject program was discontinued. 
(job specifier) = (mix index) DS-ED 


Processing of an object program was discontinued before 


End-of-Job; the EOJ option was set. 
(compiler name ) / (program identifier) = (mix index) DS-ED 


Compilation was discontinued before the compiler reached 


End-of-Job; the TYPE EOJ option was set. 


EOF NO LABEL (file designator) : (job specifier), (terminal 


An object program has reached the end of the designated file 
and has not specified what is to be done; processing of the 


program was discontinued. 


EXPON OVRFLW { job specifier), {terminal reference) 


An object program has performed an operation which caused an 
exponent overflow to occur; processing of the program was 


discontinued. 
FLAG BIT {job specifier), (terminal reference) 


An object program has performed an operation which caused a 
word with a flag bit of 1 to be accessed as if it were an 


operand; processing of the program was discontinued. 


FRMT ERROR 
a. dillegal character in format. 
b. Unrecognizable format specification, 
c. Required numeric field is not numeric. 
d. Field width greater than 63. 


e. Format specifies record longer than buffer. 
INTGR OVRFLW (job specifier), (terminal reference) 


An object program performed an operation which caused an in- 


teger overflow to occur; processing of the program was discon- 


tinued. 
INVALD ADRSS {job specifier), (terminal reference) 


An object program performed an operation which addressed a 
memory location in an absent memory module or an address less 


than 00512; processing of the program was discontinued. 
INVALID ARG CONCAT 

See appendix H. 
INVALID EOJ 


A STOP, CALL EXIT, or transfer of control statement was miss- 
ing from the mainline program, and an attempt was made to exe- 


cute an END statement, 


LIST SIZE ERROR 


The number of elements in the list of a READ statement exceeds 


the number of data items in the logical record. 
NEGATIVE BASE XTOT 

A**B, where A is negative and B is not an integer. 
NEGTV ARGMNT LN (program specifier) (terminal reference) 


A negative argument has been passed to the intrinsic which 


computes the natural logarithm. 
NEGTV ARGMNT SQRT (program specifier) (terminal reference) 

A negative argument has been passed to the SQRT intrinsic. 
NMLST ERR 


This error message can be generated during input only. 


a. Illegal subscript on data card. 
b. Too many or too few subscripts. 
c. JTllegal character encountered. 
d. = missing. 

e. » or * missing after a constant. 


f. Repeat count not an integer constant. 
OPRTR DS~ED {job specifier), {terminal reference) 


The system operator caused processing of a program to be dis- 


continued through use of a DS message, 


SELECT ERROR (file designator) : (job specifier), (terminal 


reference) 


An object program performed an invalid operation on the 
designated file, e.g., rewinding a card reader. Processing of 


the program was discontinued. 


STACK OVRFLW {job specifier), {terminal reference) 


TYPE 


ZERO 


ZERO 


The operations performed by an object program have caused its 
stack to overflow its limit; processing of the program has 


been discontinued. 
ERR 


a. Exponent part in data contains non-digit after D; E; +t; 


or - (input only). 


b. The data read in using an I specification in a FORMAT 


statement is either: 


1) Greater than the maximum integer allowed (549755813887). 
2) Double, real; or alpha. 


c. The List element using a D specification in a FORMAT state- 


ment is not double precision (output only). 


d. The list element using an E, F, or G specification ina 
FORMAT statement is logical, integer, or double precision 


(output only). 


e. The list element using an L specification in a FORMAT 


statement is not logical (output only). 
ARGMNT LN (program specifier) (terminal reference) 


An argument of zero has been passed to the intrinsic which 


computes the natural logarithm. 
MODULUS DMOD 


DMOD(A,B), where B = O. 


ZIP ERROR - IGNORED 


This message is typed if a program performs a generalized ZIP 


statement, but provides control information containing an 


error. Occurrence of this message signifies that the error 
was present and that all control information following and 


including the error was ignored. 


NOTE 


For further information, refer to the 


System Operation Manual. 
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APPENDIX F 


BURROUGHS VERSUS USASI FORTRAN, 
EXTENSIONS AND DIFFERENCES 


Those extensions and differences listed below are based on a com- 
parison of Burroughs FORTRAN and USASI FORTRAN, as specified in the 
document ASA X3.9-1966. 


EXTENSIONS PERMITTED IN BURROUGHS FORTRAN. 
The following extensions are permitted in Burroughs FORTRAN. 


a. More than one statement per card is allowed. 
b. The character set includes the quote sign ("). 


c. The relational operators <, <,; #4; >, > are allowed in 


place of their FORTRAN mnemonics. 
d. Hollerith constants may be used in assignment statements. 


e. Theoretically, there is no limit to the number of dimen-= 


sions which can be declared for an array. 


f. A subscript may be any integer or real arithmetic expres- 


sion. 


g In the statement: 
GO TO is (kj sk,4...sk,) 


i may be an integer or real variable. 


h. In the statement: 
GO TO(k, sk, 5...5k_) 54 


i may be an integer or real arithmetic expression. 


i. In the statement: 


IF(l.e.) s 
s may be any executable statement except a DO statement. 
j- The terminal statement of a DO loop may be any executable 


statement, with any implications involved assumed to be 


understood by the programmer. 


In the statement: 


DO m isn Mom 


1 3 


imay be an integer or real simple variable. 


n,n, sn, may be integer or real arithmetic expressions. 


2 


ny and ns do not have to be greater than zero. 


isn, Ms: and ns may be redefined within the range of the 


DO statement; with any implications involved assumed to be 


understood by the programmer. 
CLOSE u; LOCK u; PURGE u. 


In I/O and AUXILIARY I/O statements, u may be an arith- 


metic expression. 
NAMELIST and NAMELIST T/O. 
READ f,k; PUNCH f,k; PRINT f,k. 


The intrinsics: TAN, COTAN, ARSIN,;, ARCOS, SINH, COSH, ERF, 


GAMMA, ALGAMA, AND, OR, COMPL; EQUIV, CONCAT, TIME, DIV; MOD. 


Random disk I/O. 

Action labels. 

Non-standard returns from subroutines, 
Multiple entry points to subprograms. 


Each of the two components of a complex constant may be 


either real or integer. 
Hollerith constants and literals may be enclosed in quotes. 
The format specifications Ow and Tn. 


The ability to have a subroutine recurse (call itself). 


y. Labeled common blocks do not need to be the same length in 


all subprograms. 


Z. Variables can be preassigned values in both labeled common 


blocks and the unlabeled common region through the use of the 


BLOCK DATA subprogram. 


DIFFERENCE FROM USASI FORTRAN. 
In the statements STOP n and PAUSE n, n is blank or an integer 


constant of up to six digits. 


APPENDIX G 
COLLATING SEQUENCE 


CODES 


INTERNAL CODE BCL CODE {| CARD CODE 


OCTAL 
[= Tom [ESE [os fee 


Blank 


LOW 


1010 8-3 
1011 10 | 100) nn [8-4 
) 10 | 101 10 | nor] mW |e-5 
j 10 | 1110 | 10 1110 VW | 8-6 0 
< jw jun 57 | 10 | mn | i | 8-7 E 
| - | 10 rier 54 | 10 | 0000 | a Ng us 
© 
| 7 | | 0001 | 61 | or | oo} o | 1 |Z 
; 11 | 1010 72 | ol | ON] Oo |8-3 445 
% | W | 1017 73 | 01 | 10} o |e-4 {0 
= {| nN | 10 75 | oF | or| o [8-5 
] | imo 7% | ol | 10} o |8-6 
" Woiaun 7 | oj un} o |s-7 
| # | 00 | 1010} 12 | oO | 1011; - j8-3 | 
@ | 0 | 101 13 | 00 | 100] - |s-4 
00 | 1101 15 | 00 | no} - | 8-5 
> | 0 | mo 16 | 00 | m0! - |e-6 
> | 0 | am 17 | 0 | wu] - 8-7 
r 01 | 0000 2 | 1 | 1010} 12 | o |! 
A 01 | 0001 2 | a | ooo | 12 | 1. tie 
B or | oo10 zz | | oo) 12 | 2 
 ¢ | oF | oo | 23 Hat | oo! a2 | 3 | 
D 01 | 0100 2 | 1 | ooo} 12 | 4 
E 01 | 101 2 |i | om} 12 1 5 
|; F | ol | O10 | 26 jj 4) | o1lt0] 12 | 6 
| G | 01 ai 27 | Wf our] 12 | 7 | 


APPENDIC G (cont) 
COLLATING SEQUENCE 


7> O 7 O ZF. F Re 


4 | noo 74 | o1 1010 
S 11 0010; += 62,:«|:«CO8F-~——=s0010 
T 1 0011 63 | ol oon 
U 11 0100 64 | 01 0100 
Vv 11 0101 65 | 01 o101 
W 11 0110 6 | 01 O10 
x Wool 67 | ol on 
Y 11-1000 70 | 01 — 1000 
z 11-1001 71 | 01 1001 
0 00 0000 00 | 00 ~©1010 
1 00 ©0001 o1 | 00 0001 
2 00 = 0010 02 | 00 0010 
3 00 ©0011 03 | 00 011 
| 5 | 00 oto 04 | 00 0100 
| 5 | 00 ©0101 05 | 00 © o10} 
6 00 010 06 | 00 110 
7 00 «Ol o7 | 0 on 
8 00 ~=—- 1000 10 | 00 1000 
9 00 ~=—-1001 11 | 00 ‘1001 


8 
8 


oo 0o0U€C««~wWCiC“‘ UM lGUlUCUCOULCOUOUCOCLCUF 


0 On OO OD &F WY ND 


-_- © 


oOo on Oo OH & WY NH 


ee LOWY 


HIGH 


APPENDIX H 
BIT-MANTPULATION INTRINSICS 


The FORTRAN compiler provides five intrinsics for use in bit 
manipulation and masking. It is assumed that the programmer who 
makes use of these intrinsics has a prior working knowledge of the 
system. All five of these intrinsics permit access to all but the 


left-most bit, bit zero, of a word. 


AND. 
This intrinsic logically ANDs bit numbers 1 through 47 of its two 


arguments. The arguments remain unchanged. 
The general form is: 


AND(A,B) 


where A and B are real arithmetic expressions. 


Examples: 


A subscript of 8 indicates an octal number. 
Y=AND(S,T) 


S T Y¥ 
B777777777777777 2 1iililiiiiiiiiits J111111i1iililil, 


1234567023456701. 3210765432107654, 1210565022006600, 


OR. 
This intrinsic logically ORs bit numbers 1 through 47 of its two 


arguments. The arguments remain unchanged. 


The generai form is: 


OR(A,B) 
where A and B are real arithmetic expressions. 


Examples: 
A subscript of 8 indicates an octal number. 
Y=OR(S,T) 
S i Y 
B777777777777777g = 1111111111111111, 3777777777777777 8 


1234567012345670., 3210765432107654, 3234767432347674., 


COMPLEMENT. 
This intrinsic returns the logical COMPLEMENT of its argument. The 


argument remains unchanged. 


The general form is: 


where A is an arithmetic expression. 


Examples: 


A subscript of 8 indicates an octal number. 
Y=COMPL(S) 


Ss ¥ 
B777777777777777 2 ~~ 0000000000000000, 
1234567012345670., 2543210765432107 


EQUIVALENCE. 
This intrinsic logically EQUIVALENCEs its two arguments. The 


arguments remain unchanged, 


The general form is: 


where A and B are real arithmetic expressions. 


Examples: 


ie ee fe ee, |e 


37777777777777778 T1iitiiiiiiiiiit, tiiiitititiiiiits, 


1234567012345670, 3210765432107654., 17535753379 39122 6 


CONCAT. 
The FORTRAN intrinsic CONCAT provides general bit-wise partial-word 
manipulation. CONCAT is a REAL FUNCTION of the form: 


CONCAT (A,B,S1,S82,N) 
where: 
a. A and B are integer or real arithmetic expressions; 
b. Sil, S2, and N are integer arithmetic expressions; 
c. Sl > Q; 
d. S82 > 0; 
e. N > O;3 


f. Sl+N < 48; 
gs. S2 +N < 48. 


If any one of conditions (c) through (zg) is not true, the object 
program will be discontinued with an INVALID ARG CONCAT message. 


When this function is called, first bit S2 of B is transferred to 
bit Sl of A; then bit S52 + 1 of B is transferred to bit S51 +1 of A; 
and so forth, until N bits have been transferred. In other words, 
starting with bit $2 of B and moving to the right, each successive 
bit is transferred to A, starting with bit S1 of A; until N bits 
have been transferred. A. B. Sl; S2;, and N remain unchanged after 
the operation unless they are to the left of the replacement 


operator (=) in the statement referencing CONCAT. 


Although there are 48 bits in a word; numbered O through 47, bit 


number O cannot be accessed by using CONCAT. 


Example 1: 


IWORD=64 

JWORD=1 

IBIT=46 

JBIT=47 

N=1 

X=CONCAT (IWORD , JWORD , IBIT , JBIT ,N) 


DATA IWORD,JWORD,IBIT ,JBIT ,N/Y777 ,G1111 ,39 536 ,6/ 


JWORD=CONCAT (IWORD , JWORD , IBIT , JBIT ,N) 


bit (6) 3 6 9 12 15 18 21 24 27 30 33 36 39 ie) KS 

77 1 Titty tit tt bp SESPS 

setore ne rer) - tt tr rt xp 
peteeeanter te PTeyl Welk te il pee 


JWORD 


KOF=CONCAT(0,1750,24,36,12) 


KOF 
(after) 


Example 4: 
INTEGER BIT 
A=2h.0E+0 


BIT=42 
A=CONCAT (A ,12;38-BIT ,6) 


bit 


0 3 6 912 15 18 21 24 27 30 33 36 39 42 45 


| | [TT tT eX 
is aE eG oll oO 


PRT 


as 
+ 


BR 
Ont orvu wor} 


APPENDIX I 
CONTENTS OF A FORTRAN OBJECT PROGRAM 


EEEEEEEE 

Used by .LABEL. 
500000000 

FPB 


R + 0, Stack 

OWNARRAY description 

ALGOL WRITE 

ALGOL READ 

ALGOL FILE CONTROL 

fe) 

BLOCKCTR 

JUNK 

BASENSIZE 

LISTRIN 

CLASN 

HOLTOG 

Powers of Ten 

21 word ARRAY for any formatted 
output and for use by ZIP 

ERR 

SQRT 

ARSIN 

EXP 

SIN 

ALOG 

TAN 

ATAN 

GAMMA 

DATAN 

DCOS 

DSIN 

ATAN2 

CABS 

DMOD 

DEXP 

DSQRT 


APPENDIX J 
TIME-SHARING FORTRAN 


This appendix describes capabilities of FORTRAN compilers equipped 


for time-sharing. 
For Source Programs compiled/executed from the card reader: 


$TSSEDTT Option. 

This option causes the compiler to print diagnostic messages when- 

ever a source statement contains a construct(s) which would elicit 

a syntax error if the source statement were compiled from the term- 


inal. These constructs are: 
a. The PAUSE statement. 
b. Formal subprograms. 


ec. Hollerith or quoted strings extended from one line to 


another. 
Also; the ZIP construct is not reserved in Time-Sharing FORTRAN. 


If the $NEW TAPE option accompanies the $TSSEDIT option, the format 
of the new symbolic file will be the "REMOTE FREE FIELD" format 

(see page J-4). This Source File Editing option, when used with a 
disk file label-equate, allows the user to automatically prepare a 


card or tape source program or subprogram for remote terminal usage. 


$SEQXEQ Option. 


A program compiled under this option will cause Run-Time terminating 
errors (e.g., Div by Zero, Invalid Index) to reference the sequence 
number of the source line containing the terminating construct, in- 
stead of its segment/address. Note that this option has meaning only 


if it precedes the first executable statement. It may not be reset. 


File Unit REMOTE. 
See page J=2 for a description of the File Unit REMOTE. 


APPENDIX J (cont) 


If in an object program an I/o statement using a REMOTE File Unit is 
executed, the program will be DR-ED with a DCTU NOT ASSIGNED message. 
The REMOTE Unit designation has legitimate meaning only for programs 
executed from the terminal. (Of course, the REMOTE unit designation 
may be used in source programs compiled to the library from a card 


reader. ) 
For Source Programs compiled/executed from the terminal: 


$TSSEDIT Option. 

This option causes the compiler to consider the format of the 

source file to be the ordinary restricted field format. The option 
is treated as any other $O0PTION, and must be renewed on each $ 
Control Card (if renewal is desired). This option may be thought of 
as TURNING OFF the Remote Free-Field format. Note, HoweveEs that 


the source line may not exceed 66 columns. 


$ERRMES Option. 

Ordinarily; compilation syntax errors elicit the message "ERR#nnn @ 
mmmmmmmm: nnnnnn", where nnn is the error number, mmmmmmmm is the 
line number (see $SEQXEQ Option, page J-1), the nnnnnn is the erro-~ 
neous construct; use of this option will cause the compiler to 


print a description of the error next to nnnnnn. 


$LIST Option. 

This is the familiar $LIST option. However, unlike card/tape input 
compilations, this option is initially set to OFF when compiling from 
a terminal. Use of the option from a terminal provides a line printer 
listing of the compilation, and each listed line of terminal file will 


be flagged with a D in column 82. 


File Unit REMOTE. 

Use in a source program of a file card containing UNIT=REMOTE will 
cause relevant I/O statements to reference the terminal from which the 
source program was compiled and/or executed. No buffer or blocking 


information is required and, if provided, it will be ignored, 


APPENDIX J (cont) 


New Meaning for the PRINT Statement and the READ Statement Without 
an Input Unit. 


Ordinarily, the PRINT statement references the line printer, and the 
READ statement without a unit designator references a file labeled 
READER. In Time-Sharing FORTRAN, however, source programs compiled 
from the terminal will by default have their PRINT and READ state- 
ments reference the terminal from which the associated object program 
is executed. If this effect is undesired, use of the new option 
ONSITE at compile time restores the statement references to their 


ordinary meaning. 


Use of the new option $REMOTE causes source programs compiled from 
the card reader to have their PRINT and READ statements reference 


the terminal from which the associated object program is executed. 


Note that using $REMOTE from the terminal merely re-initiates the 
(unordinary) default file references, and that using $O0NSITE from 
ae 


the card reader merely re-initiates the ordinary file reference, 


Also, note that these two new $ options have meaning only if they 
precede the first executable statement, and they will be ignored if 


‘placed anywhere else. 


General Observations. 
FORTRAN programs written, compiled, and executed from the terminal 


will normally: 
ae Be written in REMOTE FREE-FIELD format (see page J-4). 


b. Not contain constructs indicated on page J-1 under $TSSEDIT 
option). 


c. Have I/O statements with a Unit Number n; where n is defined 
in a file card of the form: 
FILEbbn=FILEN , UNIT=REMOTE 


or use the PRINT and READ statements (which by default 


reference the user's terminal). 


d. 


e. 


APPENDIX J (cont) 


Have their compilation and execution errors printed on 


the terminal and referencing a line number. 


Not produce any line printer compiler output. 


FORTRAN REMOTE FREE-FIELD FORMAT (Time-Sharing). 


Ordinarily, FORTRAN retains special meaning for columns 1, 1-5, 6; 


and 7-72. 


However, in Time-Sharing FORTRAN, these special meanings 


are abandoned, and the following conventions are used (assuming that 


$TSSEDIT is not used; see page J-2). Note that column 1 refers to 


the first column following the sequence number. 


Continuation cards contain a minus (-) in column 1, and the 
card text starts in the first non-blank column or in column 


7, whichever comes first. 


Comment cards contain a C in column 1, a minus (-) in 


column 2, and the comment starts in column 3. 


Labels may be a tiaximum of fi 


ive columns Long and may 
imbedded blanks (imbedded blanks do not contribute to the 
value of the label but do count in the five column limita- 
tion). A non-blank non-numeric character, or the seventh 
column after the start of the label, ends the label and 
starts the card text. A label may be separated from the 


sequence number by any number of blanks. For example, 


(b represents blank): 


SEQ# 

1LO000bbb...bb1A=B 
2000bbb...bb1b2b3bA=B 
3000bbb. .. bbl b3bbbbA=B 
4OOObbb. ..bb12345A=B 


In the above examples, the underlined character is the first 
character of the card text, and the labels have, respective- 


ly, the values 1; 123, 13; and 12345. 
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d. File cards must start in column 1, therefore; the word 
FILEbb starting in column 1 is reserved in REMOTE FPREE- 
FIELD format. 


e. Dollar-sign control cards contain a $ in column 1 and 


control information in columns 2 through 72. 


fi. For all other cards; the card text starts with the first 


non-blank character. 


g. Only 66 columns of card text (see paragraphs a; c; and f 
above) are allowed. Additional text will elicit syntax 
error #149 (A TSS SOURCE LINE MUST HAVE LESS THAN 67 COLS.). 


FORTRAN LIMITED FREE-FIELD READ. 
The characteristics of a limited free-field READ in the compiler is 


as follows: 


a. The free-field READ is indicated by a slash (/), and 


replaces the format statement number in the READ statement. 


b. All blanks in the data field are ignored. 


c. Only numerical or logical statements are acceptable to the 


compiler, 


d. Commas (,) are used as delimiters. 


e. "TRUE" or 1, and "FALSE" or O represent that particular 


condition in a logical data field. 


f. Double precision is permitted, but only the most significant 
half is transmitted. This means that double precision is 


treated as a single precision constant. 


gs If a parity branch appears in a READ statement, a type 


error will cause that branch to be taken. 
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h. The free-field READ condition is terminated when either a 


list is exhausted, or an End-of-File is encountered. 


Examples: 
READ /, A, B, C, D 
5.4, bb3.572, .95E+03, 5.39E-04 


LOGICAL X,Y 
READ /, C, D, X, Y 
4.9, .039, "TRUE", 1, 5 


LOGICAL A, B, C, D 
READ (5, /) A, Bs C, D 


O, "TRUE", "FALSE", 1 


READ(1,/, END=50, ERR=6) C, D 
5.4B+06, .095 
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INDEX 


Action Label, 7-2, 7-7 BUFFERing, 7-49, B~4 
Actual Argument, 3-2 


Actual Parameters, 5-9, 5-10, CALL EXIT Statement, 5-8 


5-11, 6-9, 8-3, 8-5, 8-6, A-1 CALL Statement, 5-10, 8-10 

Alphanumeric, A-1 CALL ZIP Statement, 5-11 

AND, 3-5, H-1 Cards, Change, 1-2 

Area Option, 7-49, 7-50 Cards, Comment, 1-1, 1-3 

-ARG .GT. MAX f, E-1 Cards, Continuation, 1-2, 1-3, B-4 

Argument, Actual, 3-2 Cards, Dollar Sign, 1-1, 1-4, C-1 

Arguments, Dummy, 8-1, 8-2 Cards, FILE, 7-48, 7-49, 7-50, 

Arithmetic Assignment Done eed 

Statement, 4-1 Cards, Patch, C-1 

Arithmetic Expression, 3-1 Cards, Program, 1-1 

Arithmetic IF Statement, 5-4 Car Gike Control, 7-28, 7-29 

Arithmetic Operators, 3-1 Change Cards, 1-2 

Array, 2-8, 2-9, 6-2, 7-1, 7-27 Character Set, 2-1 

Array Subroutine Transfer, 8-8 Character String, 2-6, 7-23, 7-24, 
7-25 


Array, Format In, 7-27 
ASSIGN Statement, 4-3, 5-3 
Assigned GO TO Statement, 4-3, 


CHECK Option, C-5 
CLOSE Statement, 7-10 


5-3 Collating Sequence, G-1 
Assignment Operator, 4-2, A-1 Comment Cards, 1-1, 1-3 
Assignment Statement, COMMON Statement, 2-8, 6-1, 6-3, 
Arithmetic, 4-1 6-8, 6-13, 8-4, 8-7, 8-12, 8-13 
Assignment Statement, Compile Time Error Messages, D-1 


Logical, 4-2 
Auxilairy I/0 Statement, 7-8 
Aw, 7-22, 7-23 


COMPLEMENT Intrinsic, H-2 
Complex Constant, 2-5 

Complex Variable, 2-7, 6-4 
Computed GO TO Statement, 5-2 
CONCAT Intrinsic, H-3 
Constant, Complex, 2-5 


BACKSPACE Statement, 7-9, 7-10 
BCL, 2-2, A-1 


Bit-Manipulation 


Intrinsics, H-1 Constant, Double Precision, 2-3, 

Blanks, Significance of, 1-1, a 

1-2, 2-2, 7-13 Constant, Hollerith, 2-6, 5-10, 
8- 6-1 

BLOCK DATA Statement, 6-4, 6-13, D> 3 

8-5, 8-7, 8-13 Constant, Integer, 2-3 


BLOCKING, 7-48, B-3 Constant, Logical, 2-6 


one 


INDEX (cont) 


Constant, Real, 2-3 END Statement, 1-2, 1-3, 8-5, 8-7 
Constants, 2-2 ENDFILE Statement, 7-10 

CONTINUE Statement, 5-7 Entry Points, Multiple, 8-10 
Continuation Cards, 1-2, 1-3, ENTRY Statement, 8-11 

1-4, B-4 -EOF NO LABEL, E-1 


Control, Carriage, 7-28, 7-29 
Control Statement, 5-1 


EQUIVALENCE Intrinsic, H-2 
EQUIVALENCE Statement, 6-4, 6-7, 
8-4, 8-7, 8-13 


DATA Statement, 2-8, 6-12, 8-4, Error Messages, Compile Time, D-1 


627.5. 82184 8-13 


-DATA STMT ERR, E-1 Error Termination Messages, 


Object Time, E-1 

DEBUGN Option, C-3 wed, 7-16, 7-17, 7-18, 7-26 
Deeks Seu Mba 220 Executable Program, A-1 
Executable Statement, 2-8, A-1 
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